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CHAPTER 1 
CONSTRUCTION OP ADVANCED TASKS 

1.1 INTRODUCTION TO ADVANCED TASK CONSTRUCTION 

This chapter describes advanced task construction in the RSX system 
and presents conventions for writing such system tasks as the 
following: 

. MCR function tasks 

. Task-development functions 

. I/O device handlers 

. Interrupt drivers 

Procedures for constructing these tasks are similar to those required 
for on-line development of user (or application) tasks. Regardless of 
function or complexity, all tasks must be: 

. Assembled or compiled 

. Task built using TKB 

. Logged into the system by means of the INSTALL MCR Function 
task or, in the case of CONSTPUCTed tasks, by FININS 

. Activated and executed, using system directives, the Monitor 
Console Routine or the MULTIACCESS Monitor 

The remaining chapters in this part of the manual define precise 
requirements for constructing advanced tasks and present examples of 
operational tasks in each of the categories mentioned above. 
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1.2 GUIDELINES FOR ADVANCED TASK CONSTRUCTION 

The following guidelines summarize certain basic requirements for 
constructing all Tasks described in subsequent chapters. 

1. All hardware registers are available to the programmer; no 
registers are reserved exclusively for system use. 

2. Naming conventions exist for MCR Function Tasks, 
Task- Development Functions, and I/O Device Handler Tasks. 
Appropriate conventions are described in each chapter. 

3. Tasks should not exit while I/O, mark-time, or Event Variable 
settings are still pending; premature exit might cause the 
Task to be overlayed by another Task before all necessary 
operations have completed. 

4. Tasks should not exit without relinquishing system resources. 
In particular, the following functions should be performed; 

. Unused "nodes" should be returned to the "Pool of 
Empty Nodes." 

. External I/O buffers should be freed. 

. Attached devices should be detached. 

. Open files should be closed. 

5. The issuing of a System Directive results in a loss of the 
original contents of the following registers : 

. AC 

. XR 

. LR 

. MQ 

. LINK 

, SC 

. Autoincrement registers 10-17 

. System registers R1-R6 

. Location 20 

Unexpected interrupts which suspend Task execution must 
always save and restore active registers before use. 
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CHAPTER 2 
CONSTRUCTION OF MCR FUNCTION TASKS 

2,1 CONVENTIONS FOR MCR TASK CONSTRUCTION 

MCR Function Tasks are responsible for handling operator requests for 
installation, activation, and scheduling of user or system Tasks, as 
well as a variety of other procedures described in the MCR manual. To 
supplement operations performed by these modules, the user can write 
his own MCR Function Tasks. He must adhere to the following 
conventions : 

1. The name of the MCR Function Task must consist of three dots 
followed by three characters, as in the following: 

... INS 
...REQ 
...ABO 

2. Because MCR Fvinction Tasks must address registers within the 
Executive, all MCR Tasks must be built to run in EXEC mode. 
This implies that the partition in which an MCR Function Task 
runs must be in the lower 32K of core. 

3. All MCR Function Tasks must be invoked from the Resident 
Monitor Console Routine. The Resident MCR is initially 
requested by typing CTRL/C (tC) on the MCR device. If a 
carriage return is used to terminate a particular MCR command 
line, the Resident MCR will be automatically invoked after 
the function specified in that corameuid line has been 
performed. If an ALTMODE character has been used as 
terminator, CTRL/C must be typed each time the Resident MCR 
is desired. 

4. MCR interaction is carried on from the device associated with 
LUN-2. Listing output is associated with LUN-3. Both LUNs are 
normally assigned to a terminal dedicated to MCR 
communication . 

5. The command input line must be read using the 
"Petch-A-Character" (FAC) subroutine. Additional input lines 
must be initialized by the "Initialize Fetch-A-Character" 
(IFAC) subroutine. 

6. To enable further MCR interaction, the MCR Function Task must 
clear the "MCR Request Inhibit" (MCRRI) flag before exiting. 

7. An MCR command terminated by a carriage return requires that 
...MCR be requested. If the command line ends in ALTMODE, 
the Task must zero MCRRI before exiting. 

XI-2-1 



2.2 SAMPLE MCR FUNCTION TASK 

This section presents a sample MCR Fvinction Task named ...DIS, which 
is used to disable a Task. A full assembly listing of ...DIS is 
included on subsequent pages. The following description summarizes 
the flow of control through this program. Line numbers in the 
leftmost column below refer to decimal line numbers included at the 
left margin of the assembly listing. 



Line Number 
64-91 



Label 
DIS 



92 



93-112 



113-12J2I 



121-127 



ENDCRA 



DISN2 



EXTIA 



128-159 



WAITF 



Description 

Start here. Fetch characters from the 
input command line, using the resident 
FAC subroutine in the Executive, and 
build a 1-6 character Task neune. The 
Resident MCR with Task name ...MCR, is 
responsible for requesting the DISABLE 
Task, ncimed ...DIS, and for reading the 
command line such that FAC is ready to 
pick up the character following the 
first breeJc character in the command. 
Check for a syntax error. 

Save the code for the line terminator, 
carriage return or ALTMODE, to be 
examined prior to Task exit. 

Convert the Task name from ASCII to 
.SIXBT and store the name in the DISABLE 
CAL Parameter Block (DISCPB) . 

Issue the DISABLE Directive to the 
Executive and wait for completion. 
Check for an error. If an error is 
detected, print an error message. 

Exit sequence. If the line terminator 
was a carriage return rather than 
ALTMODE, request the Resident MCR 
Dispatcher Task (...MCR) and do not 
clear the "MCR Request Inhibit" flag. 
If the terminator was ALTMODE, clear the 
flag but do not request the dispatcher. 

CAL Parameter Blocks (CPBs) , variables, 
and error messages. 
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P*SE I 018.5 SRC 

1 " "'" ' 

5- 7 FIRST PRINTiNG7 FEBRiJiRY 1974 

4 / 

■ / TMF INFORMATION IN THIS DOCUMENT IS SUBJECT TO 

e / CHANKE NITHOUT NOTICE *ND SHOULD NOT BE CONSTRUED 

y ■ " , ii k COMMITMENT Br DIGITAL EOUIPMENT CORPORATION. 

a / DISITAi EQUIPMENT CORPORAT ION ASSUMES, NO_WESPON- 

S / SIBILITT FOR 'any ERRORS THAT MAY APPEAR IN THIS 

IB / OOCUweNT. ,.„ _., . _ . 

\i I THE SOFTWARE 0E_SCRI8E0 I^N THIS DOCUMENT IS FUR- 

■ 5 /"NTSHED to THE PURCHASER UNOER A LICENSE FOR USE ON 

.4 / A SINGLE COMPU T ER SYSTEM AND CAN BE C OPIED CjITM 

JT /"INCLUSION OF d'IGITAL'S COPYRIGHT NOTICE) ONLY FOR 

la / USF_IN_5UCH_SYSTEM , EXCEP T AS MAY OTHERWISE BE PRO- 

\T / VIDEO IN' WRITING BY DIGITAL. 

.1 /'DfsTfAr EQUIP HEN f CORPORATION ASSUMES NO RESPONSIBILITY 

20 / FOR THf US E OR RELIABILITY OF ITS SOFT WARE ON XOUIP- 

ri — "~ / MENT That I4 NOT SUPPLIEO by DIGITAL. 

-^5 7" COPYRIGHT "lC)~ l9^«7^Y^~DiG'lTAL EQUIPMENT CORPORATION 

24 / - - - 

28 -EJECT 
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PACE 
26 



OIS.S SRc" 



3e 

31 
92 

94 



se 

"57" 
38 



41 

42 

"43^ 

44 

"US"" 
4S 



— »7~ 
48 

4¥" 
SB 

92 

94 

96 

jr 

98 
'~5f 

80 
«T 
62 



EDIT «5 " 

COPYRISHT 197B, 1971, 1S72, DIGITAL EQUIPMENT COCP., W»YN*RD, mVssV 

r"MrY"72 rT'Ticle^an" ■ "" 



MCP FUNCTION — DISABLE 

~TASK Name 



.DIS" TO DISABLE A TASK 



THE riRST LINE OF THE COMMAND INPUT FOR ANY MCR 
FUNCTION IS READ B Y THE RESIDENT MC R TA SK C"...HCB«) . 



FOR THE "DISABLE" FUNCTION, THERE IS ONLY ONe'liNE 0?" 
C0WW>Nn INPUT. AND IT'S SYN TAX IS AS FOLLOWSI 



SYNTAX m 'DIS'S«NBC>«BREaK CHARACTERx TASK NAME> 
C«CR»/«AM») 

<BREAK char* ■ " " /-," __ 

<TASK NAME> ■ 1-6 ALPHANUMERiC CHARACTERS 
«CR> » CAR RTN 



«AM» ■ ALTMODE 

«NBC> » NON BREAK CHARACTER 



S — " ANY NUMBER OF "INCLUDlNG-ZERb""^ 



THT TfE-SI DEfrr"MCR" READS "T tlSE, FETCHES THY 



_FIRS_T JTHREE^CHARACTERSjro FORM THE MCR FUNCTION TASK 
NAME C»...DI8"3, TLUSHES CHARACTERS" Thru the >li»8t 
'^i'F*!!.'^"*?*^^^''' "^^OUESTS ". ..PIS". AND EXITS 

THt TASK "...SIS " PROCESSES" The Remainder of TRrLiNE " 

*„.i! ^"^ REQUEST I^ VALID, ISSUES AN APPROPRIATE "DISABLE" 
niRECTIVE, - 



^IF THE COMMAND INPUT" LINE " IS TERMrNATrD Fy "A^CAR "RTN, 
THE RESIDENT MCR TAS K IS REQU ESTED, AND_THE^FUNCJION TASK 

"iF'tHE COMMAND INPUT L'i"NEi""5 TERMINATE"!) BY AN ALTMOOE, THE 
-EM^"ION_IASK EXITS HITHOUT REQUESTING "...MCR". A aC TYPEIN 
IS THEN NECESSASy TD RE-ESTABLISH MCR DIALOSUE. 
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PAGE 

«4 
89 
tf~ 

67 

66 
69 

re 

71 

TT 

73 

74 
75 
76 
77 



"OIS.S SRC 



•«• MCR FUNCTION 'DISABLE' 

TflfuE «** MCR'FUNCtlON 'DISABLE' 



eeei7i a 

"B«8174_A 

aBBBia A 

R* 777771 A 
1 R B4B1 4a R 



MCRRI1171 
FAC_»174 
Tlfl'lB 
/ 

Dis " ■ Law 
nAC 



BBBBa R 200141 R 
BBBB3 R 060142 R 



LAC 
OAC* 



.7 /SET UP TO FETCH TASK NAME AND STORE 

QKJ_ /SIK CHARACT ERS CZERO RIGHT FILLi In 

CDISCPB+l) /DISABLE CAL PARAMETER BLOCK 
(XIB) 



BBBB4 R 12B143 R DISNI JM3« 



BBBBS 
BBBBe 



R 940144 R 
R 6aBB2B R 



78 

1^ 

80 

81 

'sr 

83 



0BBB7 
BBBlB 



R 54B14S R 
R 6BBB20R 



SAD 



BBBll 
BB012 



R 540146 R 
R 6B0B23 R 



B0813 
BBB14 



83 
— Bl 

87 
88 
89 



BBB19 
BBBie 



R 540147 R 
R 600023 R 



R 060010 A 
R 44014B R 



SAO 

SAD 

JMP 
SAD 
JWP 



CB34] 

_E551 



0BB17 ff 600BB4 R 



"daC* 

JMP 



CB4B} 
&RRX 
(B15) 
l^NOCRA 
(17S) 
ENOCRA 



_/F ETCJL A_CHARACTER 
/ IS IT » COMMA? 
/YE8 '- ERROR I N SYNTAX 
/NO -i"BLANK7 
/YES " ERROR IN SYNTAX 
/no -- CAR RTN? 
/YE8-- END OF REQUEST 
/NO— ALTMODET 



00B2B R 2BBISB R 
00621 R 04B111 R 



ERRl 



91 

62" 

93 

94' 

99 

"9r 

97 
98^ 

99 



00022 N BB0094 1^ 

000 23 T~a 40 137 R 
B BB24 R 160018 A 
B0~025 R 4401 4B R 
00026 R 680024 R 



LAC 
DAC 

"jmF" 



/YES — END O F REOUEST _ _ 

X10 " /NO"— STORE CHARACTER 

CNT /_l-_*!T CHARACTER OF TASK N*M£7 

DISNI /NO' — GET NEXT CHARACTER 

'TMES2) Tge't sfNTAx error' 'meiTs'age AOORESS 

TYPCPB*4 /PUT IT IN TY PE REQUEST 



ERRTY /REQUEST MCR AND RETURN 



ENDCRA nAC 
DISN? nZM* 



00027 R 2BB1BB R 



0003B R 640506 A 
00031 R 200077 R 



100 
101 



IBS 



104 
109 

107 



109 

TT0 

111 

U?" 
113 



114 

11?^ 

116 



00032 R 640906 A 

00033 R 2B0B76 R 
ei«034 R 74i2Be k" 
0B039 R 600020 R 

00036 R 640614 A 

00037 R 040076 R 



'000*0 H 200103 R 
00041 R 640906 A 



BB042 R 200102 R 
0004a R 640908 A 
0BB44 R 2BB101 R 
00045 R 640614 A 



B00*6"ff 040077 R 
B0047 R 00ej7j^R 



00090 R 000065 R 
00B51 R 2Bai l2 R 



B0092 R 740100 A 



isr 

JMP 



SVBKCH 
X10 



/SAVE CAR RTN OR ALTMOOE 

/FILL REMAINING CHARACTERS ("ITM ZERO 



CNT 
DISN2 



LAC 

"lrT' 

LAC 

T»3" 

LAC 



DISCPB*4 



/FORM FIRST HALF OF TASK. NAME 



SNA ^ 
jMP 



DISCPB*3 

6 

DISCPB*2 



TlS" 

DAC 

lrs 
iW 

LR9 

TaC- 

LUS 
"OAC" 
_CAL 



ERR l 

1* 

DISCPB*2 
'DI8CPa*7 



/IS THIS A NULL NAME7 
/YES EXIT WITH ERROR 



/STORE FIRST HALF OF WORD IN DISCPB 
/rSRM SECOND HAL'F OF TASK NAME 



C 
S'MA 



DtiCPB*6 

6 . _ 

6I5CPB+5 

_14 

DTSCPB+3 

DISCPB /ISSUE DISABLE DIREC TIVE 

WAlTf ""TTJAIT FTSr' DISABLE TO COMPLETE 

EV /set_event variable 

/JUMP IF "Rejected 
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PACE 



0IS.9 SRC 



••• MCR ruwCTION 'OISABLE' 



TIT" 
118 

Tw- 
ite 



181 
128 
123 
124 

128 



_Bea54R BBB1B5 R 

etess R tt»9»3 R 
eeege b segaai * 



IRRTV 



"STTTrr 



JHP 



EXTU 
TYPCPB 
N*ItF 
EXT2 



/OK NO ERRORS 

/W«KE TYPE CPB REQUEST 



BBBS7 R 2BB137 R EXTil L»C" 
BBBSB R 540146 R JAO 

BBBSl R eBBBS? R EXT2 cil 
BBe»2 R 54B147 R s«D 



SVBKCH 
CIS) 



/FINISHED EXIT 



127 
128 

Taf 

13B 

"m- 

132 



88003 R idsiSl tl 
88864 R BBei42 R 



BZM* 
CAL 



8888 8 R aBBB2B A 
BBB^e R gBB112 R 



/ 

NAITF 



REQMCR 
(MCRRI) 



/SET TERMINATION CHARACTER 
/SKI P IF ALTMODE 



/REQUEST MCR TASK~ 

/IP ALTHOOE CLEAR MCRRI 



/CLEAR *C SWITCH 
/RETURN 



J8_ 



/WAIT FOB REQUE ST 

/EVENT VARIABLE ADDRESS 



134 

T35" 
138 



137 
138 

~r3» 

14B 
141 
142 
143 
144 

r45 

146 
147 
148 

-Tif 
ISB 
T5I 
1S2 
153 
1S4 



159 



BBBS/ R 8BBBB1 
08070 R BBBBBB 



REOMCR 



88071 R S8S696 A 
BBB 72 R 180322 A 



/CALL MCR DIRECTIVE 



BBB73 R SBBBBB A 



.SIXBT" 



• • t 

"MCR" 



i»t74 R 8B0B21 A 
BBB7S R 888112 R 



OISCPB 



BBB77 R BBBBBB 



B01BB R BBBBBe A 
BBIBI R BBBBBB A 

BStes R tteeii a 

08183 R BBBBBB A 
BBIBA K BBBBBB A 



21 

E^V 

fl 

B 

B 



88185 R 882780 A 
BB186 R BB8112 R 



TTPCSr 



88187 R 888883 A 
BB UB R BBeBB2 A 
BBUl R eBB123~R~ 
B8112 R BBBBBB A 



B 

8 

B 

2TB8 
EV 



"TITTncTion Code 
/event variable adr 

/TTfSK" NAME""fFlR5TTrALP) 
/TASK NAME (SECOND _HALF) 

/('DISCPB'tg THRU 'DISCPB'+8 IS USED TO 
/ ASSSmBLETa S KHNAMr Tn to . S rx^sTj 



BB113 R aBBBB2 A 



88114 H i»9«»i A 

B8115R 42223.8 A 

" 88116 R 32664rT^ 

88117 R S 46332 A 

8B121 R 2B2132 A 



EV 

/ 
HES2 



3 
2_ 

MES3 
8 



/WRITE 

/EVENT VARIABLE 



/LUN NUMBfR" 
/lOPS ASCII 



_S_1.,8_'_^SC 1 1 "OIS-SVNTAX ERR"*15> 



88122 
08123 
B0124 
80125 
88126 
88127 



751932 
8B0BB2 



422232 
326630 
4B6471 



MES3 



27 B> .ASCII 



"DIS-TASK NOT IN SYSTEM"«15> 



SbTJB R"52B234" a 
88131 R 476SB4 A 
BB1S2 R "044634 A 
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PAGE 5 


0IS.5 SRC 

00133 R 202473 

00134 R 151690 


*•* HCR 

A ~ 

A 


FUNCTION 'DISABLE' 




00135 R 426321 

00136 R 500000 


A 

A 




156 
157 
158 
159 


00137 R 000000 
00140 R 000000 

000000 


/ 
A SVBKCH 
A CNT 
R '.END DIS 




00141 R 000075 

00142 R 000010 

00143 R 000174 

00144 R 000054 


R .L 
A *l 






A *L 
A •L 






00149 R 000040 
00146 R 000015 


A *L 

A •L 






00147 R 00017S 
00150 R 000113 


A *\. 
R •L 






00151 R 000171 
SIZE>00152 


A *L 

NO ERROR LINES 
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CASE 


a OIS.S CROSS REFERENCE 












CNT 


80ue 71 as 94 isa* 












D18CPB 


aaeee 7a* iss 

aae74 72 ar 99 lei 


Id! 


108 


tes 


lie 


112 



oiSNi aeaB4 79* as 



EWPCB* 08823 SI 83 92« 



ERRTY 
ERRl 


88894 
00820 


90 
77 


118* 
79 


88* 


103 






EV 
EXTi* 


00112 

00097 


us 

117 


129 
121* 


138 


148 


192* 




EXT2 
FAC 


00061 
008174 


120 
67* 


123* 
73 










MCRRI 
MES2 


008171 
08113 


SB. 
8S 


12S 
194. 











"HttiS 08123 ISl TSS* 
REOMCR 08087 123 131 



SVBKCH 90137 92 121 197* 

TrPCPB 80109 89 lis 147* _ 
HAITEV 08059 119* 

H*ITF 00889 114 ll9 128* 

m sseaia — ssi n 84 sr 
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CHAPTER 3 
CONSTRUCTION OF TDV FUNCTION TASKS 

3.1 CONVENTIONS FOR TDV TASK CONSTRUCTION 

TDV function tasks facilitate on-line development of user tasks by 
providing a means of editing, compiling, assembling and building 
tasks. All TDV tasks are invoked by the MULTIACCESS Monitor. 
MULTIACCESS Supports the following standard TDV tasks: 

. FORTRAN IV Compiler 

. MACRO Assembler 

. Text Editor 

. Task Builder 

. File and directory utilities 

TDV function tasks should not be confused with MULTIACCESS Monitor 
commands. Such commands are usually overlays to the MULTIACCESS 
Monitor and serve to control the user task-development environment. 
On the other hand, TDV functions are separate tasks and include those 
facilities necessary to perform program development. 

To supplement operations performed by standard TDV modules, the user 
can write his own TDV function tasks. He must adhere to the following 
conventions: 

1. The name of the TDV function task must consist of three 
characters, followed by three dots, as in the following: 

FOR . . . 
TKB . . . 
FIN. .. 

The user should be careful not to terminate his TDV task with 
four dots, since this format is a naming convention for I/O 
handler tasks. 

2. Most TDV function tasks can be built to run in either user 
mode or exec mode. An example of one of the few TDV tasks 
that must run only in exec mode is INS... (INSTALL), which 
modifies locations in the System Task List and must, 
therefore, address locations outside of its own partition. 



XVM/RSX VIE 
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TDV tasks should be built in user inode whenever possible 
because an exec-mode task cannot be relocated to a partition 
other than the one for which the task was built. Task 
relocation is a desirable feature for MULTIACCESS use, 
because it allows the MULTIACCESS Monitor to perforin dynamic 
partition selection to maintain system throughput. 

All TDV function tasks must be invoked from the MULTIACCESS 
Monitor. This Monitor can be requested by typing in CTRL/T 
("T) on any terminal. 

TDV function interaction is carried on from the device 
associated with user virtual LUN-12. Error messages are 
associated with virtual LUN-13. Both LUNs are assigned to 
the user's terminal as soon as the user logs into the 
MULTIACCESS system. 

The command input line is transferred from the TDV line 
buffer to a buffer within the TDV function task by the XFRCMD 
system directive. 
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3.2 SAMPLE TDV FUNCTION TASK 



This section presents a sample TDV function task named DEL... that is 
used to delete files from a directory on disk. A full assembly 
listing of DEL... is included on subsequent pages. The following 
description summarizes the flow of control through this program. Line 
numbers in the leftmost column below refer to decimal line numbers 
included at the left margin of the assembly listing: 



Line Number 



79-92 



Label Description 

DEL Using the XFRCMD directive (line 53) , 
the TOPS ASCII command line supplied by 
the user to the MULTIACCESS Monitor is 
transferred into the DEL... buffer 
(line 360). The MULTIACCESS Monitor, 
with task name TDV..., is responsible 
for requesting DEL..,, the DELETE task. 
The XFPCMD directive must be used by all 
TDV function tasks to obtain command 
strinq text. 



93-103 



FLUSH Flush through the first break character 
(i.e., ignore all characters in the 
command line up to and including the 
first space character) . If a line 
terminator is found, it is a syntax 
error, because it means that no file 
name was specified in the command. 



104-169 



NEXFIL Pass control here to process the next 
file name after a break character is 
found. Convert the file name and 
extension from ASCII to .SIXBT, check 
for errors and store the results in the 
DELETE CPB (line 360) . 



170-183 



Issue a request to DELETE the named 
file, wait for completion and check for 
errors. 



184-195 



Loop or exit sequence. If the file name 
delimiter in the comm.and is a comma, go 
back to process the next file name. If 
the delimiter is an altmode, simply 
exit. If it is a carriage return, 
REQUEST TDV... before exiting. If it 
is none of the above, the delimiter is 
illegal and results in a syntax error. 
The convention of requesting the task 
TDV... when the line terminator is a 
carraige return is not necessary under 
MULTIACCESS. This convention, however, 
must be followed if the TDV task is to 
be run under a release of PSX prior to 
XVM/RSX VlB. 



XVM/RSX VlB 
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Line Number 
196-228 
229-269 

270-353 
354-391 



Label Description 

ERRl Code to print error messages. 

UNPACK Subroutine used to unpack characters 
from lOPS ASCII (five per two words) to 
five per five words. 

FAC Subroutine used to fetch a character 
from the lOPS ASCII command line. 

KEQTDV CAL parameter blocks (CPPs) , variables 
and buffers. 



XI-3-4 



PACE 1 0EU.16 8RC **• TDV ruNCTlON "DELETE" 

a / 



3 / 

4 ^ FIRST PRINTINS , FEBRUARY 1974 _ 

S / 

S / THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO 

j / CHANGE WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED 

g / AS A CnMMITMENT BY niSlTAl EBUIPMENT CORPORATION. 

B / DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPDN. 

/ SIBTLITY FOR ANY ERRORS THAT MAY APP EAR IN THIS 

II / DOCUMENT. 

14 ^ 



13 / THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FUR- 

14 / NISHED TO THE PURCHASER UNDER A LICENSE FOR USE ON 

j5 ' / A SINGLE COMPUTER SYSTEM AND CAN BE COPIED (WITH 

. g / INCLUSION OF DIG I TAL'S COPYRIGHT NO TICE) ONLY FOR 

17"" / USE IN SUCH SYSTEM, EXCEPT AS MAY OTHERWISE BE PRO- 

]j / VIDEO IN WRITING BY DIGITAL. 

19 / 

20 / DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILI TY 

-jl / ^DR THE USE OR RELIABILITY OF ITS SOFTWARE ON EQUIP- 

ii / MENT Tha t 1 8 NOT SUPPLIED BY DIGITAL. 

25 I 

24 / COPYRIeHT [Cj 197 4, BY D IGITAL EQUI P MENT C ORPORATION 

25 / 

2B L . 

27 .EJECT 
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(•Ace 



29 
29 

91 



33 

"54" 

39 

"ST" 

3r 



39 

41 
43 

~n" 

4S 

47 

-fW 

49 

"SBT 

91 
"5S~ 

93 

-9<r- 



99 
~5B- 

97 

99 

61 
-ST' 

63 

69 

67 

69 

71 
"75" 



73 
74 
79 
76 
77 
T8 



DEL. 16 SRC 



•*• TDV FUNCTION "DELETt* 



EDIT 016 



36 APR 72 



C. PR0TE4U 



/ COPVRIIiHT 1971. 1972, DIGITAL EQUIPMENT CORP., MATNARO. M4 S3. 



/ TDV (Ta3K DEVELOPMENT) TASK. N*MED "DEL...", POR DE LE TIN6 FILES FROM 
/ THE DISK VIA "LUN". 
/ 



/////////////////////////////////////// f ///////////////// 
I / 



/ COMMAND STRING EXAMPLEl 
/ 



TDV»DEL FILEI,PILE2,F1LE3 



TDV»OEL FILEl 3RC,FILE2 SIN,FILE3 603 



I n 1 1 n I / 1 / n 1 1 n n 1 1 1 n I n 11 n f n f f I / / 1 1 H m 7i nt I / 1 in 
/ 



/ THE FILE NAME EXTENSION IS OPTIONAL 
/ 



•SRC" IS THE DEFAULT ASSUMPTION. 



/ THE COMMAND INPUT LINE IS READ BY THE RESIOtNT TDV TASk t"TOV...") AND 
/ IS TRAMSFERRED TO THIS TASK BY MEANS OF THE XFR CHD DIRECTIVE. 



COMMAND SYN TAX « 'qEL 'S <NSP»«8P><FI LE NAWE* (( «SP>«EXT»)/) _ 
S(«C0M>«FILE NAME»((«SP>«EXT>)/)){«CR>><AM») 



<NSP> ■ nOM-S^ACE CmaAaCtER 
«SP> » A SPACE CHARACTER 



«FILE NAME* » 1 TO 6 ALPHANUMERIC" CHARACTERS 
«EXT» « 1 TO 3 ALPHANUMERIC CHARACTERS 



«CON» 

«CR> 

«AH> 



A COMMA 

A CARRIAGE RETURN 



■ AN ALTMODE 



S«..» OR St. .3 » ANY NUMBE R, I NCLUDING NONE, OF THE ITEM <, ,» OR (. ,1 , 



/ AT COMPLETION O F TH E DELE TE FUNCTION, THE TERHIjaATING CHARACTER OF THE 



0eee2i a 

666619 A 



/ CDHMlNn LINE 1S"EX'AMINE0. l7 TT IS A CARRIAGE RETURN, fHriRE8I0ENT"fDV 
/ TASK la "REQUESTED" AND "DELETE" EXITS. IF THE LINE IS TERMINATED BY AN 
/ ALTMODE, "DELETE" EXITS WithoUt "rEquesTTng" "TDV..."^""m:TSL~rTYPETN "" 
/ IS TH EN NECESSARY TO RE-ESTABLISH TOV DIALOGUE. 

/ ■ "' '" " " ' " 

LD*f"17 /LUN NORMALLY ASSIGNED TO DISK. 

TDVTT Y'13 /TDV TTY ERROR LUN. 



660616 A 
44()ei6e A 
060048 A 



Xleal8 

iex»isz 

CBFSI7"4«! 



:tct" 



/AUTOINCREMENT REGISTER 10. 
/USED WHEN THE SKIP IS NOT INTENDED, 
/SIZE OF THE CDMMANQ LINE BUFFER FOR UP 
/TO S0 CHARACTERS, 



■.EJECT 



XI-3-6 



PA8E 3 


DEL. 16 SRC ••• 


TDV FUNCTION "DELETE" 


78 
se 


eeeee R eee336 » 
eeeei R eee342 r 


DEL C*L XFER /TRANSFER THE COMMAND LINE READ BV "TDV..." 
CAL WAITFR 


Si 
82 
83 
84 


eeesa ft 777762 * 
eeees R 540344 r 
eeee4 r 600117 R 


LAW .16 /IS THE BUFFER TOO SMALL, I.E., IS THE 
SAD EV /COMMAND LINE TOO LONG? 
JMP ERRl /YES. 
/ 


85 
86 




/ INITTALIZE The FETCH-A-CHiRACTER SUBROUTINE. TMJS MUST BE DONE HERE, 
/ RATHER THAN BEING ASSEMBLED IN, IN CASE THE TASK IS FIXED IN CORE AND 


87 
88 




/ IS THUS NOT REINITIALIZED. 
/ 


8e 
81 
82 
83 
84 
^5 

86 

5, 

88 


00005 R 200422 R 

00006 R 040313 R 
00ee7 A 200423 R ' 
00010 R 040314 R 

eeelt r 100247 R 

00012 R 540424 R 

eeeis R 600021 R 


lac cfaclb+2) 
dac faclbx 
Tac cfaccb+S)'" 
dac faccbx 

/ 

/ FLUSH COMMAND INPUT THROUGH THE FIRST BREAK CHARACTER. 

■ / " " 

FLUSH JMS FAC /FETCH A CHARACTER FROM COMMAND LINE, 
SAD "C40) /SPACE? 
JMP NEXFIL 


89 

lee 
lei 

102 

189 
104 


00014 R Si9*ii R 
0001s R 74l0fle * 

00016 R 540426 R 

00017 R 600121 R 
00020 R 600011 R 


SAD (15} /CARRIAGE RETURN? 
SKP 

SAO (175) /ALTMODE? 
JMP ERR2 /SYNTAX ERROR. 
JMP FLUSH 
/ 


1B5 
1B6 




/ UNPACK THE FILE NAME. 
/ 


tB7 '--^ 

ie8 


00021 R 200427 R 

00022 R 060430 R 

00023 ft 777771 » 

00024 R 100221 R 


NEXFIL LAC (BUF-1) /INITIALIZE THE NAME BUFFER, 
□AC* (X10] 


IBS 

lie 


LAW -7 /UNPACK FILE NAME (UP TO 6 CHARACTERS). 
jMS UNPACK /RETURN IF NO ERROR OCCURREn. 


Hi 

112 

n3 

114 





/ 

/■ CONVERT THE FILE NAME TO .SIXBT AND STORE IT IN THE DELETE CPB. 
/ 

.DEC 


us 

116 


00029 ft 2003S2 ft 
00026 R 640506 « 


LA? BUF+2 
LRS 6 


117 
118 


00027 ft 2B03S1 ft 
00030 R 640506 * 


LAC ""■BUF4.1 -. 

LRS 6 


1« 
12e 


eeeai r 200350 R 

00032 R 640614 * 


LAC BUF^B 
Li-S 12 


121 
122 


00033 ft 741200 i 
00094 R 600121 R 


SNA 

JMP ERR2 /SYNTAX ERROR -- NULL FILE NAME. 


ISS 

124 


00099 R 040333 R 
00036 R 200355 R 


oaC 6ELETe*S 
LAC BUF+5 


Tf5- 

126 


00037 R 640506 i 
00040 R 200394 R 


L" 6 
LAC BUF«.4 


127 
128 


00041 R 640506 k 

00042 R 200393 R 


lRS 6 

LAC BUF*3 


128 

i9e 

" i Ji " 


0«043 ft S40«U 1 
00044 R 040334 R 


lLS 12 

OAC DELETE+4 
'.OCT 



XI-3-7 



PAGE 



DEL. 16 3Rc 



•*♦ TDV FUNCTION "DELETE" 



T55" 

133 

"TTT 

139 

TSr 

137 

TSir 

13» 
141 



/ THE FILE NAHE EXTENSION IS OPTIONAtI THE OEFAULT EXTENSI O N 18 "JBC". 



00049 R 228348 R 
89848 R 9 48428 R 
88847 R T4teBe * 
88898 R 948428 R 



VALIDATE THE DELIMITER, 



L*C 
.SAO„ 



142 
143 
144 
148 
"148- 
147 



88891 R 741888 A 

88892 R 948431 R 



SAD 



88893 R 688872 R 

88894 R 948424 R 



SKP 
SAP 



CHAR 
C17S1 



_/ C A R RI AGE _R E T UR_N ? 
/ALTNODET 



88899 R 741888 A 
88B98 R 889121 R 



JMP 



C54? 



SKP 
.JHfJL 



USESRC 
_t4Bl 



/COMMA? 



/ASSUME DEFAULT 
/SPACE? 



■SRC" EXTENSION. 



EBHg 



/NO 



a iESA L PEU TMITER . 



148 
149 



198 
191 

■- T55- 
193 

" 194 
199 
111" 
197 

-- 13T 
199 

itw- 

161 
IBS 
163 
114 

169 
111 
167 

iir 

169 
—178- 
171 
178 
173 
174 
179 

~T7r- 

177 
178 
179 
168 
161 
182 
163 



89887 R 777774 A 



/ UNPACK THE FIL E NAME EXTEN SION. 
/ 



88868 R 188221 R 



-L*« 



J Ml 



UNPACK 



/UNPACK .EXTENSION [UP TO 3J_MARiiCTERSJ» 
/RETURN IF NO ERROR OCCURRED. 



88861 R 289368 R 
89862 R 64eS8S A 
88883 R 288397 R 
88064 " 



A 649386 A 
89869 R 209396 R 
88868 R 649614 A 



/ CONVERT THE FILE NAME EXTENSION TO .SIXBt AND STORE IT l¥ THE DELETE CPB; 
/ 

"■ ^UEC " ' ' 

LAC BUF+B 

' ■ lR5 6^ 

LAC BUF+7 

un 



88867 R 741288 A ~ 
88878 R 689121 R 
89871 R 741888 A 



LAC 

llJ- 

.OCT 

SNA 

JMP 



6 

BUF*S 

12 



ERR2 



SKP 



/SYNTAX ERROR ..rr. NULL E.X.TENSIONj. 



980/2 (n2i89432 fl" 
99873 R 848939 R 



/ USE THF DEFAULT EXTENSION "SRC". 

/ 
USESRC L*C tSiiiii) "" v. SIXBT "SRC", 
OAC DELETE*! 



89 874 R 88933 8 R 
"8^875 R 98934^""" 
98076 R 289344 R 



/DELETE THE FILE. 



80877 R 
89108 R 
80101 9 
90102 R 
09183 R 
88184 R 



54«I433 
609123 
94^434 
609129 
741100 
608127 



/ DELETE THE FILE AND HAITFOR COMPLETION. 

"/ " 

CAL DELETE 
CAL WAITFR 
LAC EV 

T-HT 

ERR3 

(-54) 

ERR4 



JMP 
SAD 
JMP 
SPA 
JHP 



ERR5 



/FILE NOT FOUND. 
/FILE STILL OPEN. 
/DELETE ERROR. 



.EJECT 



Xl-3-8 



PASE 
184 

las 



DEL, 16 SSc ' «•• tBV function "DELETE" 

7"V*LI0*TE THE DELIMITER. 



187 

188 
189 

191 



"?!?* _" 3*B<3t R 

00107 !!' 680821 R 

001 IB R 8404186 R 

00111 R 000430 R 

0B112 R 5404Z8 R 



L*^ 

S«D 

JMP 



CHAR 
CS4) 
NEXFIL 
tl75) 

cier 

_il5J 



ERR? 

REOTDV 

( IB) 




/COMMA? 

/YES -- PROCESS THE NEXT fltt NAME. 
/ALTM0DE7 

/YES — SIMPLY EXIT. 
-/CARRIAGE RETURN? 
/YES. 

/NO " ILLEGAL DELIMITER, 
/REQUEST "tOV...". 
/EXIT WITHOUT NAITINS FOR RESULT. 



MESS A GE AN D THEN BEQUEST "TOVji^" EVEN J F 
ALTMOOE. 

/COMMAND LINE TOO LONG. 

/SYNTAX ERROR. 



TTILE NOT FOUND. 
/FILE STILL OPEN. 
/"DELETE" ERROR. 



/SAVE EV VALUE SO THAT SOMEONE MAY 
/IT 8Y USING THE "OPEN" NCR FUNCTI 
/TYPE THE MESSAGE. 



EXAMINE 
0_N_, 



8S3 



/"WRITE" CPB.' 

/TOV TTY ERROR LUN. 
/lOPS JSCII. 
/MiSjAGE ADDRESS. 



ASC II " OeL-LI'^ E t oo lON6»<15> " 



T0r*r 

001*8 



00191 
00192 



R 422131 A 
R 428 830 A 
R 446350 A 
R 320250 A 



■0*153 
00194 



R 478364 A 
R 046236 A 



0019S 
00196 
88197 



ir"*r2161 A 
R 900000 A 



R 004002 A 
R 000000 A 
R 422131 A 
R^ 428846 ± 
R "546392 A 



"MIST ' 084002'jl Bl .AStll "DEL-SYNTAX ERR"<19» 



XI-3-9 



PAGE 



DEL. 16 SRC 



♦*• TOV FUNCTION "DELETE" 



80102 R 44e6Se « 
89183 R 282132 A 



88184 R 291832 ' 
88168 R 885882 « 



224 



88166 R 888888 A 

88 167 R 422131 A 



WES! 



_aB5B82j e> .A SCII "DEL- FILE NOT F0UN0"<1S» 



88178 R 428614 A 
88171 R 446318 A 



88172 R 120234 A 

881^8 R 478884 A 

88174 R 843236 A 

88179 R 926388 A 



229 



88176 R 486488 A~ 

88177 R 889882 A 



88288 R 880888 A 
88281 R 422131 A 



HES4 88988 2; Zt .ASCII "DEL-FILE STILL 0PEN"<15> 



226 



227 



88282 R 426614 A 
88203 R 449318 A 



88284 R 528246 A 

89209 R 522231 A 

e«iB« R 448188 A 

80207 R 476418 A 
09210 R 5478S4 T" 



80211 


R 


884882 


A HES9 


80212 
88213 


R 

R 


888888 
422131 




88214 

88219 


K 

R 


428610 
426310 




88216 
88217 


H 

R 


592212 
282132 




88220 


W 


291832 





884882; 0; .ASCII 'DEL-OELETE ERR"<19> 



:ejict- 



XI-3-10 



PACE 7 

229 

230 


DEL. 16 


SRC •*• 


TDV FUNCTION "DELETE" 

">~8UBR0UflNE UNPACK -"-UNPACK 7-8IT ASCII CHARACTERS FROM THE COMMAND 
/ INPUT uINE AND STORE THEM SEQUENTIALLY IN "BUF" VIA XIO (ALREAD* SET UP). 


231 
232 

233 

234 
239 
236 


- - 




/ TmF negative COUNT OF C^AxiMUh NUMBER Of CHARACTERS ♦ 1) IS IN tnt AC. 
/CALLING SEOUENCEJ 

/ -COUNT IN THE AC 
/ JMS UNPACK 


237 

238 
S39 
240 








/ fRETURN IF NO ERROR OCCURRED) 
TTlTEREn REGlSTEftS! " 


" 841 
242 




/ AC & MQ 
/ 


243 

244 


00221 R 

00222 R 


000800 A 
040349 R 


UNPACK 

DAC CNT /SAVE COUNTi 


249 "" 

246 

84T ~ 

248 


00223 R 

00224 R 

' "00a'25 s 
00226 R 


180247 R 
040348 R 
S4B431 R " 
608244 R 


LOOPl JMS FAC /FETCH A CHARACTER. 
DAC CHAft 

SAD (54) /COmMAT 
JMP N0T68T /YES -- DELIMITER. 


249 
290 

292 

253 
294 


«e887 ft 
00230 R 

' aSSTi R 

00232 R 

0025r R 
00234 R 


741180 * 
600244 R 
7237»1 A 
740100 A 
600244 R 


aAC -41 

SPA 

JMft N0T6BT /NOT .SIXBT. CHAR < 41. 

AAC -77 

SMA 

JMP NOTeST /NOT .SIXBT. CHAR > 137. 


25! 
298 


oi23S ft 

00236 R 


440349 R 

741000 A 


ISZ CNT 
SKP 


297 
298 


00237 n 

00240 R 


600121 ft 
200346 ft 


JMP EftR2 /TOO MANY CHARACTERS. 
LAC CHAR /STORE CHARACTER, 


^59 

280 


00241 R 

00242 R 


060010 A 
600223 ft 


DAC* xie 
JMP LOOPl 


281 
282 
263 
264 


00243 R 


160010 A 


/ 

/ FILL In THE REMAINDER OF THE NAME WITH ZEROS. 
/ 

nZM* X10 


268 
286 


00844 ft 
00249 R 


44034S ft 
600243 ft 


N0T6BT ISZ CNT 

JMP .-2 


867 
288 


00846 ft 


680881 ft 


jMP. uMPaCK 

/ 


889 






'.EJECT 



XI-3-11 



PAGE 



OEL.ie SRC 



•♦• TDV FUNCTION "DELETE" 



"STB" 
t7l 



/ suhroutine f*c -• fetch a 
/ the indicies ipaclbx' and 



CHARACTER FROM THE 5/r ASCII LINE BUFFER 'FACLBt. 
IFACCBX' MUST BE SET WHEN A NEW LINE 18 READ. __ 



"275- 
273 



TTa" 
279 



/ ChARACreRS ARE NOT FETCHED 



BEYOND TERMINAL CHARACTERS. 



/ CALLING SEQUENCE! 
/ 



"STS^ 
877 



JM8 FAC 

fUNCONQITIONAL RETURN WITH CHARACTER I N THE AC) 



278 



280 
281 



/ ALTERED REGISTERS! 



283 



"TfIT" 
289 



88247 R eaaeeg a 



88298 
88291 



"SW 88292 
287 88293 

289 88299 R 228313 R 



R 228314 R 

" 748188 A 

R 888277 R 

R 288442 R 

R 84e314 R 



/ 

FAC 



AC 8 WQ 



J 

_s*?* _ 



298 

291 
"29S" 

293 
2ff4 
299 

297 
298 

299 

388 

381 



iiist 

88297 



R 440313 R 
R 692888 A 
R 794888 A 



88281 R 188389 R 



DAC 
LAC* 

iDir 
lmq_ 

CLJlCLL 
JMS 



FACCBX 

fTcz"" 

CFACCB»1 ) 



FACCBX 
FACLBX 
FACLBX 



/FETCH THE NEXT UNPACKED CHAR«CT£R FROM IFACCB". 

/WAS THE_CHAJ^ACTER BUF_FER_(FACCBJ EMPTTT _ 

/NO " TEST FOR A TERMINAL CHARACTER. 

/YES — REFILL 'FA CCB' FR OM THE INPUT LINE. 

/(FIRST HALF OF WORD PA IR). 



FACUP5 



88292 R 188389 R 
88283 R 180389 R 


JMS 


FACUPS 
FACUPS 


88284 R SieiiS R 
88269 R 440313 R 


LAC. 
IDX 


faClbx 

FACLBX 


08266 R 840917 A 
88267 R 280314 P 


"~ "Li«r- 

XOR* 


17 

FACCBX 


88270 R 060314 R 


" DAC?" 


FACCBX 



X82 

383 

3b4' 
309 
TB8 
307 



"381"^ 
309 
310 
311 
■STii 
313 



"TTJ" 
319 
316 
317 
318 
319 



/(FIRST CHARACTER). 
/(SECOND CHARACTER). 
_/ (FIRST. 4 BITS OF T HIRD CHARACTER), 
/"nTECONO" HALF OF WORD PAIR). 



/(LAST 3 BITS OF THIRD CHARACTER). 



00271 R 7901180 A 



88272 
88273 



8827^4 
88279 



R 180309 R 
R 100309 R 



CLA 



~R"20a443 R 
R 040314 R 
88276 R 228314 R 



JMS 
JMS 
LAC 
DAC 
"LAt^i" 



FACUPS 
FACUPS 
(FACCB) 
FACCBX 

TaCcbx 



/(FOURTH CHARACTER). 

/(FIFTH CHARACTER), 

/RESET THE CHARACTER BUFFER INDEX. 

/FETCH THE FIRST CHARACTER FROM THE 
/CHARACTER BUFFER. 



8827^7 R 948429 R 
083"e0 1) ^28247 R^ 
08381 R S4e426_R 
'B0lB2"'R"-^8a247 R 



/ 

FAC2 



SAD (019) 

"JMP* FAC 

SAO (175) 

jHP* FAC 



/IF IT IS A TERMINAL CHARACTER, CARRIAGE 
/RETURN OR ALTMODE, RETURN WITH THE CH»R*CTER 
/IN THE AC BUT 00 NOT AUGMENT THE CHARACTER 
/BUFFER INDEX. TMuS, REPEATED CALLS TO FAC 
/WILL RETURN THE TERMINAL CHARACTER. 



08383 R 440314 R 
00384 R 620247 R 



TDX 
JMP* 



.EJECT 



FACCBX 
FAC 



/IT IS NOT A TERMINAL CHARACTER " AUGMENT 
/THE CHARACTER BUFFER INDEX AND RETURN WITH 
/THE CHARACTER IN THE AC. 



XI-3-12 



PAGE 

320 
921 



DEL. 16 SRC- 



"552" 
323 
iU 
325 

326 
327 



329 
330 

331 
332 

333 



339 
336 
337 
5S8 
339 
'JfW~ 
341 
342 
343 
344 
349 



348 

347 
UT 
349 
3Se 
391 

zw 

353 



^•**"Tb¥" FUNCTION "DELETE" 

SUBRnUTINE F»CUP» " UNPACKING SUBROUTINE USED BY '>*C'. 
CALLINR SFOUENCEl 



ai»309 R 

e«3eS~R 640807 



iC i LINK MUST BE CLEARED. 
NEXT CHARACTER MUST BE IN 
THE HIGH-b'ROER END OF THE MQ. 
fFACCBX' MUST POINT TO THE 



WORD PRECEDING THE ONE IN 
WHICH^THE CHARACTER IS TO 
BE STORED. 
JNS FACUP8 
fUNCONDltiONAL RETURN WITH 

■FA CCBX' P OINTING TO THE 

STORED CHARACTER AND WITH 
THE AC & LINK LEFT CLEARED) 



ALTER^ED REGISTERS J 
AC t HQ 



ACUPS 



00307 R 440314 R 

00310 R 060314 R 

00311 R 780000 A 
0e3l2 R 820309 A 



LLS 7"^^ 

JC* FAC^X 

nkS* FACCBX 
CLA 



/SHIFT THE CHARACTER INTO THE AC. THE LOW 
/ORDER BITS OF THE_ THIRD CHARACTER ARE ZERO 
/BECAUSE THE LINK IS ZERO. 



JMP* 



FACUPS 



00313 R 740040 "A 

00314 R 740040 A 



a03i"5~R 

00322 R 777777 



FACLBX XX 
FACCBX XX 



FACCB 



^BLTSCif^ 
^1 

.EJECT 



/LINE BUFFER INDEX. 

/CHARACTER BUFFER INDEX. 

/CHARACTER BUFFER CS" IMAGE ALPHA CHARACTERS). 
/EN0-0F-<FACC8i INDICATOR. 



XI-3-13 



PACE le 



DEL. IS SRc 



••» TOV FUNCTION "DELETE" ' 



00923 ft 000081 A 
00324 R 00 0000 A 
MSSS R S40426 A 
08328 R 888838 A 



REQTOV 



00327 R 000000 A 



-SIXBT "TDV" 
lalXBT ".. ." 



/"REQUEST" CPB. 
/NO EVENT VARIABLE. 



00330 R 009800 A 
00391 R 000344 R 
00332 R BB0021 A 

00393 R 888858 A 

00394 R 588883 A 
08393 R 333333 A 



DELETE aS>B 
EV 



/USE THE DEFAULT PRIORITyV 



/"DELETE" CPB. 



Tun 

■ SIXBT ■ — " 



TSTXBT 
.SIXBT 



00398 R 000037 A 



00337 R 000344 R 

00940 R 000981 W 



/ 

XFER 



JZ_ 



00341 R 000B40 A 



EV 
PACLB 



C8FSIZ 



/FILE NAME — 13 T HALF. 

/FILE NANE -- 2N0 HALF, 

/FILE NAME — EXTENSION , 

/"TRANSFER TOV CQMMANO LINE" CPB, 

^BUFFER AODRESSj 

/BUFFER SIZE. 



00342 R 000020 A 

00343 R 000344 R 



WAITFR 20 
EV 



/"WAITFOR" CPB. 



375 



00344 R 000000 

~e0345 R 000000 

0348 R 000000 

00347" R 000000 



/ 

EV 



CMAR 



TRtcoo " 



00350 R 



00301 R A 

0B4Z1 R 064B32~A~ 



/ 

8UF 

/ 



;oEc 

.BLOCK 9 
'.OCT 



/EVENT VARIABLE. 

vceuNTER. "' " — 

/INPUT CJA^A^TER. 

/EV VALUE SAVED BEFORE ERROR PRINTOUT IN 
/CAS E SOMEONE f ANT S_TO_E_X AMINE IT USING 
/THE "OPEN" MCR FUNCTION. ' 



/FILE NAME BUFFER. 



FACLB IBLOCK CBTSJZ 
" aF4092 



/COMMAND" INPUT BUFFER, OR" " "" "" 

/FETCH. A-CHARACTER BUFFER. 
/GUARD WORD "GUARANTEES FINDING 
/CARRIAGE RETURN AT END OF BUFFER, 



" 0B48J "ff" 
00423 R 
"00424" R 

00425 R 

00426 "R 

00427 R 
00430 



000322 



00491 
00432 
00433 
00434 
00493 
■00T56 
00497 
00440 



000040 
000^13 
W017S 
000347 

eB0«lB 

000054 
232209 
777783 
777724 
000149 

"00ei53' 

000165 
000177 



"—•J- 
A "L 

A *\. 
I *t 
R "L 



A "L 

A *L 
A 'L 
A 'L 
R •L 

R *L 
R 'L 



.END 



DEL 



XI-3-14 



f *8E 11' OEL.Ve 5R"C "♦ TDV FUNCTION "DELETE" 

88441' S " 8882 lT~S' '*i 
88442 R 808314 H *L 

80443 R 888313 ft *L 

SlZE'aB444 NO ERROR LILIES 



XI-3-15 



FACE la 



DEL.ia CROSS REFERENCE 



BUF 


lB35a 


107 


US 


117 


119 


124 


126 


128 155 157 


CBFSIZ 


^^tt49 


iss 

75. 


383* 

370 


386 










CHAR 

CNT 


ee345 


138 
244 


ise 

25S 


209 


2S0 

376* 


l7>. 






OEL 
DELETE 


99999 

ansae 


123* 


391 
130 


169 


173 


360* 






ERRCOD 
ERRl 


aB347 

eaij; 


in 

83 


378* 

200* 












ERBa 

ERR3 


aeiai 
aet23 


i0i 

177 


122 
204* 


14S 


163 


193 


202* 


257 


ERR4 

ERRS 


aeias 
eeiz7 


181 


206* 
208* 












EV 
EXIT 


ea344 

aaiis 


82 

194t 


178 
214 


210 


217 


3S1 


368 


373 379* 


FAC 
FACCB 


00347 

aasts 


98 
91 


24S 
207 


£83* 
304 


SlB 
350* 


SiS 


3l6 
305 

348* 




FACCBX 


0K314 


92 

344 


284 

349. 


288 


299 


3n0 


306 315 343 


FACLB 
FACLBX 


e«3ai 

a83l3 


89 

90 


3S9 
289 


3B6* 

290 


296 




FACUPS 
FACa 
FLUSH 
IDX 


assas 

88877 

eaaii 

440000 


293 

280 
96T- 

74» 


294 

309* 
103- 
290 


2AS 
297 


302 

315 


303 

343 


T41* 


346 


LOOPl 
LUN 


00223 
000021 


245« 

70* 


260 
362 








HESl 
MES2 


00143 
00195 


200 
2e2 


S4S* 

223. 




- ■ - "- 




- - 




MESS 
HES4 


00165 
00177 


204 
20S 


224* 
225. 






nCSs 
NEXFIL 


00211 20B 
00021 98 


226. 
107. 


188 






N0T6BT 
REQTDV 


00244 
00323 


246 

194 


291 
354* 


454 
216* 


265* 










TC?TTT 
TYPE 


000015' 
00136 


209 


2l8 
212 




uN^aCr 
USESRC 

-■■imTFu- 

XFER 

xie " 


00221 

00072 

' 00342 

00338 

000010 


110 
142 

80 

79 

73. 


19n 

188* 

l?4 

367* 

108 


243* 

213 
45?- 


267 
374* 

^64 


^ - -- 
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CHAPTER 4 
CONSTRUCTION OF I/O DEVICE HANDLER TASKS 

4.1 CONVENTIONS FOR I/O HANDLER CONSTRUCTION 

I/O Device Handlers are Tasks responsible for controlling the 
operations of I/O devices. Unlike front-end interrupt driver Tasks, 
I/O Heindlers are written to facilitate concurrent use by several Tasks 
by means of a standard system interface, I/O Directives. Although the 
basic RSX system provides Handlers for all standard I/O devices, the 
user can facilitate the operations of nonstandard or infrequently used 
devices by writing his own I/O Device Handler Tasks. 

Conventions for constructing I/O Device Handler Tasks and a brief 
description of the most important concepts behind the operation of I/O 
Handlers are included below: 

1. The name of the I/O Device Handler Task must consist of two 
characters, followed by four dots, as in the following: 

If. ... 
CD.... 
AD.... 

Characters included in a Handler Task name typically 
represent the ncune of the device associated with the Handler 
(see Table 4-1 below) . 

2. I/O Device Hemdler Tasks are built to run in EXEC mode. 

3. The RSX system effectively allows device independence. I/O 
requests are typically issued by Tasks to devices identified 
by Logical Unit Number (LUN) . Requests are queued, by means 
of the QUEUE I/O Directive, and are routed through the 
Handler associated with the appropriate device. 

4. LUNs and their current device assignments are stored in a 
Logical Unit Table (LUT) . There are one-word entries or slots 
in this table for as many as 512 different LUN assignments, 
and all can be reassigned or removed by means of the REASSIGN 
MCR Function Task. 

5. The Attach Flag Table (AFT) contains a one-word entry for 
each LUN. When a user Task requests that a device be 
attached, the AFT slot for the appropriate LUN is set to the 
address of the requesting Task's System Task List (STL) node. 
If a LUN is not attached, its slot is filled with zeros. 
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6. The Physical Device List (PDVL) is a system list or deque 
containing a series of nodes describing all physical devices 
in the RSX system. 

7. I/O Rundown is the delaying of the availability of a core 
partition until all treUisfers to and from that partition have 
stopped or have been allowed to complete. I/O Rundown is 
performed when a USER-mode Task exits. 

8. Each time a LUN is assigned to a particular physical device 
unit, the I/O Device Hemdler for that device is requested by 
the REASSIGN MCR Function Task. When in core, the Handler 
then initializes itself by connecting to an interrupt line 
emd by entering its Trigger Event Variable address in the 
appropriate PDVL node. This effectively informs the system 
that the Heoidler is ready to accept I/O requests. 

9. The Handler idles in a wait state tintil the requesting Task 
causes the Trigger Event Variable of the requested device to 
be set, indicating that the Hfundler is needed. 

10. I/O requests are handled by processing requests according to 
Task priority. If a device has been attached, only requests 
from the attaching Task will be serviced, until a DETACH 
Directive is issued. Requests from other Tasks c£m, however, 
be queued. 

11. Handler processing proceeds at Task level (API-7) , but can be 
interrupted by hardware interrupts from the device it is 
handling. The interrupt service subroutine which performs 
this interrupt operates somewhat independently of the Task in 
which it is found. Interrupt service routines must save 
commonly used registers on entry and restore them on exit. 

12. When a request has been completed (successfully or 
unsuccessfully) , the count of current I/O requests is 
decremented before the Event Variable associated with the 
request is set and returned. The Hsmdler then waits for the 
next Trigger Event variable to be set. 

13. When the last LUN assigned to a Handler is reassigned, the 
Hcuidler associated with the referenced device must relinquish 
system resources and disconnect from its interrupt line 
before exiting. 

14. Special I/O buffers located in a Task's partition are 
available to I/O Handlers for buffering small data records. 
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Table 4-1 
RSX Devices 



Device Name 


Device 


Handler Task 


TTn 


Terminal 


TTY 


DTn 


DECtape 


DT 


MTn 


Magtape 


MT 


DK 


Disk Driver 


DSK 


RF 


Fixed-Head Disk 


RF 


KPn 


Disk Pack 


RP 


RKn 


Disk Cartridge 


KK • • • • 


PR 


Paper Tape Reader 


PR 


PP 


Paper Tape Punch 


PP 


CD 


Card Reader 


CD 


CP 


Card Punch 


CP 


LP 


Line Printer 


LP 


AD 


Analog-to-Digital Converter 


AD 


AF 


Automatic Flying Capacitor Scanner 


AF 


UD 


Universal Digital Controller 


UD 


CC 


System COMMON Communicator 


CC 


VTn 


Display 


VT 


VWn 


Writing Tablet 


VW 


XY 


XY Plotter 


XY 



XVM/RSX VIB 
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4.2 SAMPLE I/O DEVICE HANDLER TASK 

This section presents a sample I/O Device Handler Task named LP.,.., 
which is responsible for hsmdling the LP series of line printers. A 
full assembly listing of LP.... is included on subsequent pages. The 
following description summarizes the flow of control through this 
program. Line numbers in the leftmost column below refer to decimal 
line numbers included at the left margin of the assembly listing. 

Line Number Label Description 

209-291 START This is the Handler initialization 

section required by all I/O Device 
Handler Tasks. Between lines 209-213, 
the Physical Device List (PDVL) is 
scanned for a node for this device. If 
the node is found (line 216) , this means 
the device name (line 260) was found in 
the PDVL and the node's address is 
returned in the AC register. If the 
node is not found (line 215) , the Task 
exits since no node having the name "LP" 
was found in the PDVL. Once the node 
address is returned in the AC, the 
address of the Trigger Event Variable in 
the node is calculated and saved (line 
218) . The interrupt line is then 
connected (if no connection was made the 
Task exits) and the address of the 
Trigger Event Variable is placed in the 
PDVL node (line 223) . Lines 225 to 227 
calculate an adjustment factor to be 
used for the Index Register later when 
obtaining arguments by indexed 
addressing in areas outside the current 
4K memory page. The Handler then clears 
the controller and waits for the Trigger 
Event Variable, TG, to be set (WAITFOR 
TG) . 

294-297 WFTGR Wait for the Trigger Event Variable to 

be set nonzero, indicating that an I/O 
request has been queued. 

299-348 PQ The Trigger Event Variable has been 

triggered. (The CAL Service Routine in 
the Executive triggers the Event 
Variable whenever the Handler has an I/O 
request.) The Trigger is cleared (line 
303) to prevent the Handler from being 
inadvertently called when the WAITFOR TG 
is again issued. At line 327 the 
request is dequeued (remove from the 
queue) and, if the queue is empty, the 
Hemdler issues a WAITFOR TG, which will 
be set at the next I/O request for this 
device. If a node was dequeued, the 
request node address is saved for later 
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Line Number 



Label 



Description 



352-377 



ABORT 



node access (line 330) , and the CAL 
Function Code is extracted (line 334) . 

The CAL Function is then tested for 
ABORT, ATTAQI, DETACH, etc. During the 
attempt to dequeue a request (line 329) , 
if the dequeue was not made (empty 
queue) , a return from DQRQ itomediately 
follows the JMS; otherwise the return 
is at JMS+2 (line 330) . If the dequeue 
was made, the AC contains the address of 
the dequeued node. If not, the AC 
contains either zero, (if the queue was 
empty) , or nonzero, (if the device has 
been attached) . This is useful when 
Device Handlers are multiunit and the 
REASSIGN MCR Function removes one of its 
units from the Logical Unit Table. 

The ABORT request can legally be made 
only by the I/O Rundown Task, lORD 
(lines 352-354) . It is a request to 
terminate all I/O for the named Task. 
At lines 369-377, the DMTQ subroutine is 
called to detach (if necessary) the line 
printer and the LUN by which it was 
attached, and then to empty the Line 
Printer I/O Request Queue of all 
requests raade by the named Task. 
Because the Line Printer Handler is 
internally buffered and does not dequeue 
another request until a transfer is 
complete, it is not necessary to stop 
possible ongoing I/O. For other 
devices, this is not generally the case. 



382-390 
410-901 
908-913 



ATTACH 



PRINT 



WFAB 



Routines to ATTACH, DETACH, 
Handler Information (HINF) . 



and return 



Routines to prepare information for and 
handle the hardware of tlie LP device. 

Subroutine to wait for the Event 
Variable to be set nonzero and then to 
test if an ABORT request has been made, 
tfhenever an ABORT request is queued, bit 
2 of the Handler's Trigger Event 
Variable is set nonzero. If ABORT is 
pending, it must be honored at this time 
because tVFAB may have been called to 
wait for expiration of a mark-time delay 
(lines 893-894) , following a line 
printer not-ready condition. Since the 
printer could remain in tlie not-ready 
state indefinitely, the Handler cannot 
wait for that condition to clear before 
performing the ABORT. At line 927, the 
DQRQ subroutine is called to dequeue the 
ABORT request node, whose address is 
retiarned in the AC register. Then the 
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Line Nioinber 



Label 



Description 



DHTQ routine is called to detach the 
printer eind the LUN by which it was 
attached (assuming it was attached) . 
DMTQ then empties the I/O Request Queue 

of all requests Kiade by the Task 
referred to in the ABORT request. When 
the ABORT request has been honored, the 
Event Variable is set (line 931) to 
signal the I/O Rundown Task of this 
fact. 



942-967 



971-999 



SEVRN Subroutine for setting the requester's 
Event Variable from the value in the AC. 
This must be done using the Index 
Register, since the requesting Task can 
be located outside the 32K addressing 
range (line 953) . Once I/O is complete 
(this includes setting the requester's 
Event Variable), the requester's 
transfers-pending count is decremented 
(line 957) so that a count of pending 
requests (which could alter the 
requester's core) is maintained. This 
count is necessary for the success of 
I/O Rundown. A Significant Event is 
declared (lines 959-96.0) , which may 
cause control to pass to a Task of 
higher priority (i.e., if that Task has 
been waiting for the Line Printer 
Handler to set its Event Variable) . 
Finally, the I/O request node, no longer 
needed, is returned to the Pool of Empty 
Nodes (lines 962-965). 

DAEX DISCONNECT & EXIT request made only by 
the REASSIGN MCR Function. This occurs 
after all LUNs are reassigned away from 
the Line Printer. Until the Handler 
honors this function, the line printer 
cannot be resurrected (reassigned back 
to a LUN) because the assign inhibit 
flag is set (by REASSIGN) in the line 
printer's Physical Device node. First, 
the I/O request node is returned to the 
Pool of Empty Nodes (lines 971-975) . 
Then, the line printer is disabled and 
the Handler disconnects from the 
interrupt line (lines 980-981) . 
Finally, the assign inhibit flag within 
the LP Physical Device node is cleared 
and the Handler exits (lines 995-999) . 
Interrupts are inhibited briefly so that 
the Handler cannot be interrupted after 
clearing the flag but before exiting. 
If this were not done, REASSIGN 
(assuming it was given a priority higher 
than the Line Printer Handler) could in 
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Line Niomber 



Label Description 

theory request the Handler while still 
active. Note that decrementing the 
transfers-pending coiont (as is done at 
line 957) is not necessary here, since 
REASSIGN is not a USER-mode Task. 



1003-1034 



INT This is the interrupt service routine 
which reads the status of the line 
printer (always nonzero) and saves it in 
the Handler's Event Variable. A 
Significant Event is then declared and 
return given to the interrupted program. 
The Accumulator, the only common 
hardware register used, is saved on 
entry and restored on exit. 



1036-1085 



XADJ Variables, CAL 
error messages. 



Parcuneter Blocks , and 
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PAOt 1 
I 

s 

9 

4 

9 

6 

7 

8 

S 
IB 
11 

i: 

13 
1<I 
19 

le 

17 

le 
le 

29 
21 
22 
23 



LP, ^2 SRC 



RSX LINE PRlNTtR MJNDUtR 



.TITLE RSX UNE PRINTtR HANOLtR 

CUPtRlGMT CO 1975 

DIGITAL EQUIPHENT CORPORATION, HArmso, «»S,S. 

THIS SDFTN'RE IS FURNISHED UNDER < LICENSE POR USE ONLY 
ON A SINBLt COMPUTER STSTEH AND HAT BE COPIED DNLT KITH 

rnt INCLUSION of the above coptrisht notice. TMIS 

SUFTBARE, UB ANT OTHER COPIES THEREOF, hAT NOT BE PRO- 
VIDED OR DtMERHISE MADE AVAILABLE TO ANY OTHER PERSON 
EXCEPT FOR USE ON SUCH SY5TEH AND TO ONE UNO AGREES TO 
TME5E LICENSE TERMS. TITLE TO ANp OHNERSNIP OF THE 
SOFTWARE SHALL AT ALL TINES RENAIN IN DEC, 

THE INFURHATION IN THIS DOCUHENT IS SUBJECT TO CHANGE 
WITHOUT NOTICE AND SHOULD NOT Bt CONSTRUED AS A CUI1- 
HITRENT bt DIGITAL EOUIPHENT CORPORATION. 

DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY 
Of ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIEU BY 
DEC, 



LP.J2 SRC 



U 

29 
IS 
27 
2B 
29 

3e 

31 
32 
39 
3< 
39 
SB 
97 
98 
39 
4B 
41 
42 
49 
44 
45 
4S 
47 
4S 
49 

se 

91 
S! 
99 
54 
39 
56 
87 
36 
99 
SB 
61 
62 
69 
64 
69 
6« 
S7 
68 
69 
78 
71 
78 
73 
74 
75 



RSX LINE PRINTER HANDLER 



EUIT *2W 
EUII WZl 
EUIT »t2 
EUIT »17 



EUIT 1129 
EUIT »24 
EUIT »2S 

EUIT wae 

EUIT •B27 
EUIT •»28 
EUIT 0^29 
EDIT 11(131 

EOII »a32 



8/29/73 
U/!5/79 
11/26/7J 
i» APR 72 



1/9/74 
1/1//74 
1/10/74 
2/2/74 
2/2/74 
2/2/74 
2/20/74 SCR 
9/2b/74 SCR 

9/9/7!) MJH 



S. ROUT 

G. LOLE « S. KOUT 

S.ROOr FIX TOO SHORT LINE 

H. KREJCt 

C. PHOTEAU 

a. A. UE3INUNE 

SCR CLEANUP 

SCR CLEANUP 

SCR CLEANUP 

API TRAP VECTOR NUMBER ERROR 

FIX NU OX EXIT PROBLEM 

FIX IMAG MODE COUNT 

Put line peed bach FOK tClS IMASE PUDE 

*e3tl HAU A KUN-UONN PROBLtn, RETHtNCH 

TO 829 MOSTLY 

HISSING UlSCLAIMEK 



COPYRIGHT 1971, 1972, 1979, 1974 UI6ITAL tOUIPMENI CORP., MAYNAHO, MASS. 

MUUIflCATlONS FOR Utl5 UNICHAHNEL LINE PRINTERS 

WHEN THE ASSEMBLY PARAMETER UC19«a IS SUPPLIED, A VERSION 
FOR THE UNICHAWNEL PRINTERS IS CREATED. 

IN THIS CASE THE INTERNAL BUFFER IS PACKED T«0 CHAR'S PER 

WORD, RIGHT JUSTIFIEO, WITH THE TWO TOP BITS UNUSED, 

THE FIRST CHARACTER GOES ON THE RIGHTl, THE SECONU ON THE LEFTl 

ERROR CONUITIONS ARE ENTIRELY HANOLED ON THE PUP-ll SIUE. THE 
PDP-15 SIUE HANOLER ASSUMES THAT THE DEVICE NEVER HARES AN 
EKRORI SOHE OPERATIONS JUST TAKE « WHILE TO COMPLETE. ERROR 
MESSAGES ARE Placed IN A TABLE IN THE PIREX-U EXEC, A 
SEPARATE TASK PRINTS OUT ANY EWRUR S THAT OCCUR. THE 
PDP-U HANDLES TIMEOUT UNTIL DEVICE READY. 

WARNING! I 

IN ORDER l-OR THE UCIS HANDLEW TO FUNCTION PROPERLY, THE 
POP-U MUST BE ABLE TO ACCESS UUK INTERNAL BUFFER 
ANO TCB>S. THIS MEANS THAT THEIR AUDRESS MUST BE LESS THAN 
ZSK TO THE POP-U. THUS, IF THE POP-U LOCAL MEMORY IS BK, 
THIS HANOLER MUST RESIDE BELOW 2BK IN PDP-IS COREl TMIS IS 
E0UIV4LENI TO SMat OCTAL. SIMILARLY, IF THE LOCAL 
PDP-U MEMORY IS 12K, THE HANOLER MUST RESIDE BELOW 
4BMa OCTAL. 

STANDARU SEMES PRINTERS 



/ THIS HANULEH DRIVES THE LP19 PRINTER SERIES. IT IS 
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'AGE 3 LP,S2 ^RC RSX LlNt PRINTER muDLER 

7g / COnpATIBLt «tTH NORMAL OUTPUT FROh MACRO « FORTRAN NRITTEN 

77 / PROGRAMS. 

j\ I TO 5ATI5I-Y A PRINT KtOUtST, T«E UNt IS NOVtU TO A BUCFtR IN 

a» / THE HANOLE" TASK BECAUSE IT BAY HAVE TO BE NQDIHEU IIP NORMAL 

J, / FORTRAN OUTPUT). ANO BECAUSE A NORMAL HUOE REQUESTOR MUST 

JO / NOT 8E ABLE TO MODIFY THE LINE AFTER THE HARDWARE HAS BEGUN 

j3 / TO READ IT (THE LP15 CONTROLLER UNPACKS S/7 ASCII CHARACTERS 

84 / UNTIL A VEKTICAL CONTROL CHARACTER IS FOUND). 

S3 / 

gt / ALL iMAliE MODE OUTPUT ANO ASCII OUTPUT NOT BEGINNING KITH 

{7 / 12 [LINE FtEO)> 14 CFORM FEED), 21 (DOUBLE SPACE). OR 2B 

gg / (OVER PRINT] IS PRECEDED BY A LINE FEED, AND PRINTEU IN 

SB / SINGLE LINE RODE. 

on / 

g, / FOR ASCII MODE OUTPUT BEGINNING KITH 12, 14. OR 21 (FORTRAN 

92 / 01S OUTPUT), THE HIGH ORDER HEADER HALFBORO IS SET TO TKO (TO 

gj / INDICATE T"0 "LINES") AND THE LINE IS OUTPUT IN MULTIPLE-LINE 

94 / HOOE. 

95 / 

9^ / FOR ASCII MODE OUTPUT BEGINNING NITH 28 (FORTRAN OTS OUTPUT TO 

07 I OVERPRINT THE PREVIOUS LINE). THE HIGH ORDER HEADER HALFNORD 

gg / IS SET TO THO, THE 20 IS CHANGED lU A 19 (CARRIAGE RETURN, 

gg / NHtCH IS EFFECTIVELY A NOP), AND THE LINE IS PRINTED IN MULTIPLE 

lee / LlNt MoaE. 

}j2 / THERE ARE NO IMPOSED PAGE EJECTS AT PAGE BOTTOMS. 

},, / TME FDLLORING CAL PARAMETER BLOCKS ARE USED TO HUfcUE REQUESTS FUR 

,gS / PRINTER SEKVICEl 

i«e ' 

187 / CPB 

1B8 / 

109 / 

lie / 

HI / CPB 

112 ' 

113 / 
lU / 
lis I CPB 

116 ' 

117 I 

118 / 

119 I 
128 / 

121 / CPB 

122 / 

123 / 

}IJ / TME REOUESIOR'S EVENT VARIABLE IS CLEARED (ZEROED) "MEN THE REQUEST 

12« / IS OUEUEO BY THE "QUEUE I/O" DIRECTIVE, IF THE REQUEST CAN BE 

127 / PfcRFORMED, THE EVENT VARIABLE IS SET 10 ONE (♦!) UPON COMPLETION. 



3fi8(l 


HANDLER INFORMATION 


EV 




LUN 




24811 


ATTACH PRINTER 


EVA 




LUN 




2/88 


PRINT LINE 


EVA 




LUN 




MODE 




LINE 




2988 


DETACH PRlNTtH 


EVA 




LUN 
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12< 
12« 

I9e 

tSl 
192 
199 
19< 
199 
196 
197 
196 
199 
14e 
Kl 
i*! 
149 
144 
149 
146 
147 
146 
14B 
ISe 
151 
192 
199 
194 
1S9 
156 
157 
196 
isg 
196 

lei 
162 
169 
184 
189 
186 
187 
186 
t8S 
176 
171 
172 
179 
174 
179 
176 
177 
176 
176 



/ Ih THE HEOUesT CANNOT bt HEHFORBEO, THE EVENT VARIABLt 19 SET TO ONE 

/ OF THE FOI.LOtlING NEGATIVE VALUES: 

/ 

— ILLEGAL REGUbST FUNDI lUN 

— ILLEGAL DAI A NODE 
■• ILLEGAL OUTPUT HEADER NORD-PAIR-CQUNT (<1) 

— LUN HAS UEtN REASSIGNED HHlLt HtOUtST DAS IN DUEUE 

— UUT-OF-PAHTITIOH TRANSFER (NORHAL NOUt) 
- ILLEGAL TO ATTACH GR DETACH FRDH OTHER THAN TASK LEVEL 

/Auro-INCHEHENT REG 12 
/AUTO-InCRENENT REG 19 
/AUTO-INCREhEnT REG 17 (USED TO SET REOUESTOR'S EV] 

/re-entrant register one 

/re-entrant register tro 

/re-entrant register three 

/re-entrant register four 

/node addition routine entrr puint 

/name scan routine enirv point 

/listmEao for pool HF EHPTY ndues 

/LISTHEaO for PHTSICAL DEVICE LIST 

/ATTACH LUN S DEVICE ENTRY POINT 

/DETACH LUN I DEVICE ENTRY POINT 

/DE-OUEUE REOUEST ENTRY POINT 

/VERIFY 6 ADJUST ENTRY POINT 

/DECLARE I/O REOUEST COHPLETE ENTRY POINT 

/DETACH S EHPTY DUEUE ENTRY POINT 

/POSITION OF TRIGGER EVENT VARIABLE IN PDVL NODE 

/LUN FOR NOT-REAOY MESSAGE. tLUN 9 NOT USEO SINCE nCH OUTPUT 

/COULD SE CHANNELED THRO LUN 9} 

/RORO COUNT ADDRESS (NOT USEO SY LP CONTROLLER} 

/CURRENT ADDRESS REGISTER ADDRESS 

/PRINT ONE LINE 

/PRINT MULTIPLE LINE 

/HEAD LP STATUS 

/ENABLE LP INTERRUPTS 

/DISABLE LP INTERRUPTS 

/CLEAR LP DONE FLAG 

/CLEAR LP STATUS AND ERROH FLAGS 

/INHIBIT INTERRUPTS 

/ENABLE INTtRBUPTS 



.IFDEF UC1» 
/ 

/ EBUATES FUR UNICHANNEL PRINTERS 
/ 

APISLT"!>6 
APILVL"2 

LPSl»4PILVL«l!6*7ablBl 
SIUAi7a6«al 
LI0R</a68tl6 







/ -6 ' 






/ -7 ' 






/ -16 ■ 






/ -24 






/ -ja ' 






/ -283 

/ 

X12'12 


l"6l»F112 




nenei]3 




J(19"13 


»e»eii7 




X17»17 


BBPlfll 




Ri«iei 


vePli»2 




R2I162 


levies 




R9'189 


0IIP1P4 




R4<ia4 


0BH1B7 




NADb«187 


»eBlS3 




SNAn>129 


0PII246 




PU0L«24B 


"glUSl 




P0VL4252 


[>eia929 




ALAO'929 


«eii992 




0LAU«932 


• 611997 




OaRS'997 


•8K942 




VAJX<942 


• eji945 




I0CD<]4S 


fliec«9Pl 




DnTU«361 


OICIPPIIS 




D.TG'ie 


■■natipj 




LUN«2 


o»0PP34 




NCA'94 


•e»B9S 




CAA«95 


7PS541 




LPPl-7«6541 


7ei«S21 




LPP""71I6521 


7JI6552 




LPRS«7a6552 


708544 




LPEI»7B6544 


T«l«5f I 




LPDI«7B6S61 


7tl«621 




LPCD*7ee82t 


'P«84l 




LPCS"7Bee41 


705522 




.INha785522 


TB55SI 




.ENB'7«9921 

/ 
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P*OE 5 LP, 3! '"C "SK l-'Nt PBINTER H»NDl.e« 

180 C»PI«»PILVL««B«7»61(I4 

IBl / 

1 12 .IFU^D NOSPt 

Igg OtVl.aD'4 /DEVICE coot IN PIREX IF SPUOLING tULOHED 

184 .foi; 

189 ilFDtF NQSPL 

jgj DEVCaD'Z84 /Zau BIT t-DRtllOS SPOOLINU 

167 .ENOt 

188 .ENDU 

189 fDEC 

|gg .IFUNO LBZ /LINE SUFFER SIZE NAf BE CHINUEO VI* 

IjJ / POP-IS LINE PRINTERS N»r M»VE B«» UF Hi CH»R15 I» IHAliE 

ISJ L0Z"134 /CONDITIONAL ASSEliflLYi MOdEVtH 'LBZ' 

}|J .tNOi. /hgST BE EVEN (FOR "GUARD HURU" PROTECTION TO HORH) . 

197 .OCT 

188 .IFUNO UCIS 

199 nenese a LI>ZS*LBZ/2«2-LBZ 

ttt .IFNlR LBZX 

281 .END — LBZ MUST BE EVEN 

202 .ENDC 

283 ,ENDC 

284 / 
289 «II!>08B R LbFs, 

2«« ' 

287 / HANDLER INITIALIZATION 

208 ^ 

289 tsK»Kf B 7(>»e87 R START LAC LPOVL /SCAN PHYSICAL DEVICE LIST FOR NODE 

210 irnoK •> »e.683 R OAC^ (R_U_ /FDR THIS DEVICE. 

211 «»flP9 s 900(03B R 

*'* ^a'Hi S 'I'lVl « J"»« LSNAN /CRl, R2, RB, «17, XR, A AC ARE ALTERED) 



213 
21 



223 

224 -.„..,,. _ .-_- 

225 "tlHJ n ftivtii a AND L/SBBB /DETERrilNE •XH>«DJ> 

226 f)0ti3l> a 740031 A 

227 00021 e 1409S2 R 
226 / 
229 

238 / 

231 0802S 708621 A LPCD /CLEAR LP CONTROLLER 



LAC 


LPOVL 


DAC« 


(RU 


LAC 


LHNAM 


DAC« 


(R2> 


JBS« 


LSNAN 


CAL 


tie) 


DaC 


POVNA 


AAC 


♦O.TB 


DAC 


PDVTA 


CAL 


CCPB 


LAC 


EV 


SPA 




CAL 


nti 


LAC 


LTG 


DAC* 


PDVTA 


AND 


L7800B 


TCA 




OAC 


XAOJ 


.IFUND 


UC19 


LPCD 





/NODE FQUN01 



219 0000S •B0S2S R CAL tie) /NO ~ EXIT 

216 00000 P 040561 R 0*C POVNA /SAVE PDVU NODE ADDRESS 

217 00007 Q 723010 A AAC tO.TG /AND 

218 00010 .40562 R OAC PDVTA /TRIGGER EVENT VARIABLE ADDRESS ADDRESS. 

219 g.pi, „0056e R CAL CCPB /CONNECT INTERRUPT LINE 
228 0001S 000558 R LAC EV /CONNECT OKAT? 

221 0B01S P 74U0B A SPA 

222 00014 0B06S5 R CAL (!») /NO — EXIT 



00015 000032 R LAC LTG /YES -- SET TRIGGER EVENT VARIABLE ADDRESS 

00010 060562 ft OAC. PDVTA /IN PHYSICAL DEVICE NUDE 
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PAGE 

232 
239 
234 
295 
29e 
297 
238 
239 
24e 
2'1 
242 
243 
244 
24S 

24e 

247 
24B 
249 

29b 
291 
292 
293 
294 
259 
256 
2S7 
29B 
299 
299 

291 
292 
283 
254 
265 
269 
267 
269 
269 
279 
271 
272 
27} 
274 
279 
276 
277 
278 
279 
289 
281 
282 



UP, 32 SRC 
90n29 p T0ff641 A 



nSX LINt PRINTER HtNDLEH 
LPCS 
.ENDC 
•IFDtF 



(1B»?4 o «flffle07 R 



flBfflS? P 14?00ia A 



!Mm27 p ttiltSi * 

«0n3n p 0107^29 H 

QPinSI p ^affll93 A 

"0n3!> p ni0Di5^9 R 

00033 D •'70000 A 



^lil90A p nt640td A 



UC19 

JB5 CLEAS /CLEAR OUT DEVIce, «A1T fPB COnPLtTt 

LAC eVllK /CHECK IF OUR OKIVER IN PIREX 

RTL /POP-11 SIGN 8IT TO OURS 

SNA /SKIP IF PROBLEM 

JflP NFTGR /NO PKOBLtH, GO UAII FOR HORK 

CAL BSINIT /PROBLEM, TYPE MESSAGE 

CAL rFMS /HAIT FOR MESSAGE COMPLETION 

CAL C10 /TYPEO, N0« EXIT 



RI-MS 
HSINIT 



/KAIT FOR ERROR MESSAGE 

/TYPE ERROR MESSAGE 



20 
EV 

2/80 
EV 
LUN 
2 

INITMS 
IIMS 0040112! 0i90it00; .ASLII "••• NO LP IN PIREX''<1S> 

,ENDL 

JMP HFTGR /WAIT FOR TRIGGER 

AM ,5IXbT "LP»#»»" /DEVICE NAME CHANULER TASK NAME IS "LP..<.") 

INITIALIZATION LITERALS, TO SAVE SPACE 



PDVL 
HNAM 
SN4M 
TG 



POVL 
HNAM 
SNAM 
TG 



/0000 70008 



/PHYSICAL DEVICE LIST HEAUER ADOR. 

/POINT TO HANOLER NAHE 

/SEARCH FOR NAME BATCH ROLTINE ADOR, 

/AODR OF OUT TRIGGGER 

/LITERAL fOR XR ADJUSTMENT 



/END OF IMIIALIZATION CODE 



. IFU"0 UC16 
.BLOkK LB2«LSF'- 



THE ABUVt CODE IS UVER- « 
LAYED BY OTS ASCII LlNtS 



AAAAAAAAAAAA 
AAAAAAAAAAAA 



0D4ial9 /GUARD NOKD CONTAINS A CARRIAGE RETURN (15) LINE 

/TERMINATOR FDR BOTH ASCII 8 IMAGE MODE LINES, ITS 
/PURPOSE IS TO STOP THE LP1» CONTROLLER I^ A LINE 
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P»BE 
263 

!a4 

Its 
286 

2«7 

2aa 

288 

29 e 

291 

292 

293 

29« 

299 

296 

297 

298 

299 

311 e 

39S 

362 

963 

964 

966 

966 

367 

366 

369 

9te 

311 

312 

313 

314 

916 

916 

317 

918 

319 

326 

921 

32! 

323 

324 

326 

326 

327 

328 

326 

336 

331 

932 

393 

334 



LP,32 SBC 



aajBr p ofose' « 



R3X LlNt PRINTER HAhOLEK 

/DOES NOT CONT«IN « VERTICAL CONTROL CHARACTER 
/REQUIREO TO STOP ThE CONTROLLER fROH FETCHINC 
/DATA FROn CORE, 

.ENDC 

.IFOtP UC16 

.BLOCK LBZ/2t2tLBF-. 
UTP 9 

,tNDC 

»«IT FOR TASK TO BE TRIIiGtREO Bv "auEUE I/O' OIKECIIVE OR BY lAUORT' 
TO SIGNAL THAT A REOUEST HAS BEEN auEUEO. 

FTKR CAL HFTCPB /HAIT FOR TBISGER EVENT VARIABLE TO BE SET 

,1FUND UCtS 

THE TASK HAS BEEN TRICGtRtD — PICK A REQUEST FHOn MUtlJE [IF ANY) 



An?in n i49i56B R 
60911 96P561 R 



6a?li> 

»6?1S 

9»ai« 
«a?i7 



«6n629 R 

!S»626 K 

r!BB297 R 

1*41^557 R 

:^4k9S2 R 

781666 * 



LAC 



TO /CLtAR TRIGGER 
POVNA /DEUUE A REOUEST 



alFDCF UC19 



TS 
TG 



LAC 

Dzn 

RTL 
SPAICLAIIAC 
JHP PUl 



/ 

pai 
/ 



SAD 
JHP 
SAD 
JMP 



LAC 

.tNOC 

OAC* 
J"5« 

JnP 
DAC 
TAO 
PAK 



LPDON 
OPDQNE 
POST 
HFTGR 



(Rl) 
(OORO) 

KFTGR 

RN 

XADJ 



/l-IKD OUT MnO MOKE US UP 

/CLEAR FOR NEXT TIHE AROUND 

/ABORT BIT TO AC6 

/SKIP IF NOT, SET UP 1 FOR COnPARtS 

/PKK OFF ABORT IN NORHAL BANNER 

/IRHEGARDLESS IF HAITING FOR INTERRUPT 

/HAS INTERRRUPT CONE BACK 

/GO CHECK IT OUT 

/ARE RE KAITING FOR ONE 

/YES, 00 NOTHING NOR, INTERRUPT RILL RAKE 

/US LATERIHE ALWAYS CHECK DEUUE BEFORE 

/RETUNING TO SLEEP AGAIN, 

/OEUUE A REQUEST 



/(Rl, R2, K4, RS, Re, XR, I AC ARE ALTEREOl 

/MAS A REQUEST FOUND? 

/NO " RAIT FOR TRIGGER 

/YES — SAVE ADDRESS OF REOUEST NODE 

/SETUP XR TO ACCESS NODE 



6622(1 o 916065 A 



LAC 



/FETCH CAL FUNCTION CODE 
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PAGE 

395 

937 
938 
399 
Ht 
3'1 
9'2 
343 
944 
949 
946 
947 
94> 
949 
99t 
991 
332 
9S9 
394 
3S9 
996 
397 
39a 
399 

see 

961 
96! 
969 
964 
969 
966 
967 
368 
369 
971 
971 
972 
373 
374 
379 
376 
377 
978 
979 
360 
381 
98! 
9B9 
9B4 
985 
986 



LP, 32 


«RC 




aass! 




^BI>9S7 


R 


»»?»!> 




«4»I63B 


k 


99»2S 




(ieo'2J7 


e 


m>n 




S4»627 


H 


<l»ll>S5 




«0H922 


R 


909PII 




>t4»691 




e«i?27 




itpi>266 




»IJS3!» 




•i4»692 




»B83! 




ltOI'264 




8829!> 




?tl»lV 




««J5S 




^4(1633 




9B?3< 




"JUJSB 




«I<I9S5 




777772 




IPB294 




• 0(1373 


R 


Busjr 


9 


55»ee5 


A 


pe94P 


D 


75<I2«II 


A 


ll«IS41 


P 


• IIB835 


H 



RSX LlNt PRINTER HANULEK 



999A9 t> peaSei R 



aifl947 R RfnneCi) 



«0?5J» 9pa5Sl ft 
i?0?54l p SP^SS/ R 



«N0 




(777) 


s»u 




(8171 


JHP 




«Ba«T 


SKD 




(777) 


JHP 




04EX 


SAD 




(27 


JBP 




PHINT 


940 




(36 


JhP 




HINF 


CLI.1K4B 




840 




(12 


JMP 




4TT4CH 


L»4 




-e 


jnp 




stv 


«Lt 


UD 


INITI4' 


XJ» 




9.x 


S^llCLllCN* 


JHP 




ILFUNC 



/ABORT flEBUtST? 

/res — ABORT TASK 1/a 

/NO -- tXIT (UEASSIeNtU) REQUEST? 

/CES — DETACH 8 EXIT 

/PRINT REg; 

/TUP 

/hINF CPOE SEO? 

/SEARCH ATTACH DETACH IN COnnON 

/24/2 AND 29/Z ARE 12 

/to 00 EITHER 

/NO — UNIHPUtMENIED FUNCTION — SI 

/EVENT VARIAOLE TO -6 



/ABURT IS AN ILLEGAL FUNCTION FOR ALL TASKS 
/EXCEPT liOROi, HHO SETS THE UUN*e. 



.IFDtf UC15 

IK ABORT NEOUeST IS FOR THE PRESENT TASK, KNCIH IS 
PRESENTLY MAITINB FOR A PRINT REB, TELL POP-11 TU COOL IT. 

/AC NOR 8 IF HAITINK 

/STL NOUE PRESENT RtO, 

/STL NODE PRINT REO 

/lONLYl IF P0ST«1 AND 2f»«SILAM 



/PHYSICAL DEVICE NOUE AOH 

/HEUUEST NODE ADR 

/DETACH LUN t DEVICE. IF NECESSARY. AND THEN 
/EHPTY THE OUEUE OF ALL I/D REOUESTS n«OE BY THE 
/TASK BEIN6 ABORTED. (Rl, R2, R3, RS, RS, XIB, 
/Xll. X12, XR 8 AC ARE ALTEKED). 
/DONE. 



TAO 


POST 


TAO 


2.x 


SAD 


STLA 


JnS 


CLEAR 



LAC 


POVNA 


DAC* 


(Nl) 


LAC 


RN 


Dac» 


(R2) 


JNS* 


(UMTO) 



ATTACH TU OR DETACH FRUH A TASK 



CLA'KAL 

Pax 

LAC 

OAC« 

LAC 



PDVNA 
IRl) 

RN 



/LINK TO AC) ATTACH-OETACH CONMON 
/XR 8 FDR ATTACH, I FOR OEIACH 
/LUN AND DEVICE 
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PAGE 

387 
3S8 

38S 
398 
391 
392 
393 
394 
395 
396 
397 
398 
399 
488 
481 
482 
483 
484 
489 
488 
487 
488 
489 
418 
411 
41! 
413 
414 
419 
419 
417 
418 
419 
4!8 
421 
422 
423 
424 
429 
428 
427 
428 
429 
438 
431 
432 
433 
434 
439 
436 
437 
436 



LP, 32 SRC 

«8955 B i»ei«624 R 

(IS99A I) 41^262 K 

i»»!>5r ■> «»»373 R 

fl8?6l » «8Bt373 ft 



00992 * 125IS35 R 
aasSJ P 12fl636 R 



889S4 p !>e«637 N 
08269 P F8P373 K 



R8X UlNt PRINTER HtNDLEK 



XU, (R, 6 AC ARE ALTERED] 



»e?6g 

08967 
00270 
00?7l 
»»97S 

00978 
00974 



91»B07 
040996 
^80648 
i<40641 
Ae0279 
777771 
F8fl373 



OAC« CR2) 

XCT ATTOETiX /tR3, R4, K3, R6, X18i 

/MAS LUN OEIACHbDV 
jnP 5EV /KB — SET REauESTUKiS EVERT VARIABLE TO -24 OR -283 
I CLAIUC /lis — SET REQUESTOR'S EVENT VARIABLE TO *i 

JHP SEV 

BONITOR SUBROUTINE CALLS FOR ATTACH-BETACM 



Jn5> 

Jns* 



[ALAO 
tOLAO 



RETURN HANULER INFORRATION IN EVENT VARIABLE 
INF 



LAC 
JNP 



(188011) 
SEV 



PRINT LINE 

.IFuNO UC19 



LAC 
DAC 
AND 
SAO 
JNP 
LA» 
JNP 



/SAVE MODE INDICATOR 



7.x 

HI 

(777776)/IF DATA NODE IS OTHER THAN 2 (ASCII) 
C888082)/OR 3[IMAGE), SET REQUESTOR'S EVENT 
.♦3 /VARIABLE TO -7 



,ENOC 
.IFDEF UC15 



/ 

PHI 

/ 
/ 
/ 
/ 



LAC 
DAC 



2.x 
STLA 



/RENEnBER HMO ISSUED PRINT 



SORRT ABOUT NEXT FEHI DATA NODE NJST BE 2 DR 31 
PUT IN 11 A NOP FOR NODE 3 AND SKIP FDR NQDE 2 



LAN -2 
TAD 7.x 
RARICLL 
SNAIRAL 
JMP .*i 
LAR -7 

JnP SEV 

SNHA 

XOR (SKP 

DAC MI 



/ADD IN NODE TO GIVE 8 OR 1 

/» IN AC IF DNLT IF LEGAL DATA NODE 

/SKIP ILLEGAL 

/NOR AC 8 FOR ASCII. 1 FDR INAGE 

/ERROR XIT 

/FOR ILLEGAL DATA NODE 

/1B00 FDR INAGE NODE 

/SKP OR NOP AS REQUESTED 
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PAGE IB 1.P.J2 ,RC 


439 




440 


aa?79 B JIII1557 ft 


44J 


Z99jtf e ffl6fl634 H 


442 


»«l?77 p aiauia « 


443 


WP3Bn g 5iS«642 R 


444 


IJOSBI o »4'<563 8 


44S 


«0S^9 D 75n(»30 A 


446 


aaSJS c 516(1643 K 


447 


I>I!I1I»4 s I2ff644 M 


448 




449 


nflnpK p 10^372 ft 


49B 


001OH P 777777 « 


4S1 


»I»S07 P 16I»642 H 


492 


amn p lenejJ s 


453 




494 


a»31i p »2n(H2 A 


495 


flBll? B (1I4B0W0 fi 


499 


"»3tS <4»SH» A 


497 


"4314 P ^0Ct645 R 


498 


aasi9 B 1l61»64i R 


499 




4SB 


9«31« p 723776 A 


461 


a0S17 p 74«lieB A 


462 


fl032fl p ^0A323 R 


463 


»e321 777762 A 


464 


"diss p <!B«373 s 


469 




466 


BB323 9 sei«96i K 


497 


"a3?4 p «I6"642 » 


468 


90399 P 120644 R 


469 




476 


010326 P 600372 R 


471 




47! 




473 




474 




47! 


00327 p 5>?0643 R 


476 


0033" P 74"031 A 


477 


00331 P »40963 R 


478 


0033? R 723206 A 


479 


00333 P 74"lBe A 


48e 


00334 P *0P337 H 


481 


0033(1 » 777572 A 


482 


00336 '>4'9e3 » 


483 


00337 p 500646 R 


484 


0034n n6("64/ R 


489 




486 


00341 p 220012 A 


487 


0034J P 5160013 A 


488 


00343 P 440563 R 


489 


00344 p <0»341 R 


490 





RSX LlNt PRINTER HAMOUER 



.ENDC 




LAC 


RN 


l)AC> 


(R2J 


LAC 


10, X 


DAC-i 


CR3) 


DAC 


TEHP1 


CLAU4C 




DaC« 


(R4) 


JHS« 


IVAJX) 


jnp 


ERR3iJ 


LAW 


-I 


TAD* 


CR3) 


OAC* 


(X12) 


LAC. 


X12 


DAC 


LBF 


LKS 


10 


ANU 


C/76) 


DAC. 


CH4) 


AAC 


-2 


snA 




jnp 


.♦J 


LAH 


-16 


JBP 


stv 


LAC 


TEMPI 


DAC. 


CR3) 


JNS. 


(VAJX) 



/VEKIFT i AUJUST (NORMAL BOOE) THE A0CIRE3S 
/OF THE BEGINNING OF THE LINE (HEADER ADR). 



/(SAVE UN-AUJUSTElj BASE H/B SECOND JHS) 



/(R3, R9, XB, 1 AC ARE ALTEHtO) 

/IS BEGINNING ADDRESS O^AV? 

/NO -- SET REUUESTDRI6 EVENT VARIABLE TO -3B 

/TES — SETUP X12 AS SOURCE INDEX TO HOVE LINE 



/HOVE FIRST HtADEK LINE AND ESTABLISH LINE 
/LENGTH IN KlHOS. 



/IF LESS THAN TWO WOROS, SET REQUESTOR'S 
/EVENT VARIABLE Tt -lb. 



/VEHIFV LINE SIZE (NOKRAL MODE], R2 8 R4 ARE 
/SETUP. 

/(R3, R9, XR, B AL ARE ALTERED) 
/IS LINE SIZE OUAY? 
JnP ERH30 /NO " SET REOUESTORIS EVENT VARIABLE TO -3B 

fOLLOWING SECTION KOR POP-IS PRINTERS 

/TES -- SETUP 'TEnPlt AS WOHO COUNT FOR HOVE 



/SEIUP X14 AS OESIINATIUN INOtX FOR HOVE 
/nOVE REHAINOER Of LINE TO INTERNAL BUFFER 



.IFUNO 


UC19 


LAC. 


(R4) 


TCA 




DAC 


TEHPl 


AAC 


♦ LflZ 


SMA 




JBP 


.♦3 


LAW 


-LBZ 


DAC 


TEHPl 


LAC 


(LBF) 


DAC. 


CX13) 


LAC. 


X12 


DAC. 


X13 


ISZ 


TEMPI 


JBP 


.-3 
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PAGE 11 

491 
492 
49S 
494 
495 
496 
497 
49B 
49B 

:te 
sai 

992 
9«S 
S>4 
995 

see 

507 

598 
999 
9ie 
911 
912 
913 
914 
519 
516 
917 
5tS 
519 
529 
591 
522 
529 
924 
929 
926 
527 
526 
529 
539 
531 
532 
533 
534 
599 
538 
537 
538 
999 
548 
541 
942 



LP, 32 SRC 



RSX LlNt PRINTER ntNOLER 



"9345 s 75»9Se A 
•I(1J4« » 1B047S H 



flB347 

D93;» 

»e3!! 

BBSS? 
(SII334 

»93SK 
«»357 

Bnaei 

«8S«? 

98363 
98:«64 
99:«6R 
99366 
«93«7 
"937P 
99S7I 



JB01556 
^4B659 
l>e»37S 
9en88Z 

•^BPtegi 

fl4i>e5! 

SBBAll 
•4B653 
ft89411 
^4»1694 
A9B411 
^4«655 
741888 
69«375 
980)082 
591*656 
94"657 
fli4«882 
A8B411 



CL«li>C 



/LINE HAS BtEN nOvEO AND IS HEADT TO BE 
/PRINTED FRon INTcRMAL BUFFER, INDICATE 
/TO THE REOgESTOR THAT THE LINE HAS BEEN 
/PRINTED by SETTING HIS EVENT VARIABLE TO 
/♦I. 



LAC 

SAD 
JMP 
LAC 

• NO 
SAO 
JHP 
SAD 
JMP 
SAD 
JMP 
SAD 
SKP 
JhP 
LAC 
AND 

ion 

OAC 
JMP 

• tNOC 



MI 

(9 

LFP5L 

LBF«2 

C774889 

C9888e 

PTL /TES - 

(8698893 /NO — 

PTL /YES - 

(194809)/NO 



PRINT TWO LINES 
FORM FEED 114)? 

PRINT THO LINtS 
DOUBLE SPACE C21)T 



PTL /YES ~ PRINT THO LINES 
tl8a90B3/NO " OVERPRINT £29)7 

LFPSL /NO " LINE FEED ( PRINT SINGLE LINE 

LeF«2 /YES -- ChAN^t 29 TO IB (NOP LINE) AND 

t«B9777)/PRlNT TNO LINES 

C864888) 

LBF*2 

PTL 



/ UCIS SECTION TO TRANSFER BUFFER 
/ 

.IFOtF UC15 



LINLEN>LBZ-2 
/ 

LAC. 

LAC 

OAC 

L*C. 

XCT 

SKP 

SKPICLL 

A AC 

CMAllAC 

OAC 

LAC 

DAC 

LAC 

DAC 

D2h 

CLAICNA 

DAC 



X12 

CLBF»2 
PUTP 
IH4 
MI 

IRAR 

-1 

TEMPI 

GETIN 
BETSH 
PUTIN 
PUTSN 
LBF 

FIRST 



/CHARACTEERS PER LINE 

/ilMOVEll FROM HEADER TO POINT TO DATA 
/PUTTER POINTER IN PUTP 

/HERE Is KORD COUNT OF BUFFER 
/SKIP ASCII 

■/IMIAGE, SKIP TO SUBTRACT 1 

/ASCII, REDUCE TO PAIR COUNT, SKIP TO TCA 
/IMAGE, CORRECT FUR TxO NORUS IN HEADER 
/NEGATE FOR IS2 LOOP CONTROL. ISZ FIRST 

nun, CHAR GtTTER 

/INIT CHAR PUTTER 

/CLEAR CHARACTER COUNT 
/SET UP FIRST S»lrCM 
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PASt 12 



LP.S2 «BC 



RSX LlMt PRINTER HANDLER 



S43 
944 
949 

946 
947 
946 
94S 

9Se 

991 
992 
993 
SS4 
999 
996 
597 

ssa 
S9g 
S6e 

961 
962 
963 
964 

969 
966 
967 
966 
569 
5711 
571 
572 
373 
974 
675 
976 
577 
978 
579 
586 
581 
562 
583 
564 
569 
986 
567 
568 
989 
590 
591 
592 
593 
994 



02M 


TCHAR 


JUS 


RESETL 


LOOP TO 


TRANSP 


JBS 


GETCH 


o«c 


TCHAR 


SNA 




J HP 


BAIN 


AAC 


-46 


SNAISPA 




JriP 


nsPEC 


SAD 


(137 


jnp 


NAIN 


SAD 


C13S 


JMP 


UCLP64 


LAC 


aLANKC 



/SO IT ISK'T A CR IN CASE OF BLANK LINEI 
/RCSET LINE POINTERS 



/CHARACTER liETTtR, LEAVtS IT IN AC 

/SAVE IT 

/SKIP UNLESS NULL CHAN 

/NULL, IGNORE 

/SEPARATE MEXT' CHAR'S rROn CONTROL CHAR'S 

/SKIP On regular LHARS 

/GO 00 SPtCIALS 

/KUt> OUT? 

/IGNORE 

/ALT nOUE 

/ENO OF LINE ON AuT MOUt 

/UO ME HAVE PENDING SLANKS/TABS TO SEND 

NOTE THAT BLANKC HAS MINUS THE CUUNT OF CONSECUTIVE BLANKS 
TO SEND. A TAB IS CHANGED TO CONSECUTIVE BLANKS SINCE THE 
PDP-11 HANORARE DOESN'T KN04 ABOUT TABS, 

/SKIP IF ANY AT ALL 

/NOPE, GO DO REGULAR CHAR. 

/CHECK IF MORE THAN 127 

/SKIP IF YES 

/NOPE, PUT OUT ONE COUNT OF BLANKS 

/FIRST OF TkU COUNTS, 126 

/SET UP BALANCE 

/BALANCE FOR THO, ALL IF ONE ONLY CASE 

/RESET COUNTER 

/ORIGINAL CHAR. 

/PLACED INTO BUFFER 

/INCREHENT TAB COUNTER 

/NOT DVERFLOK, GO CHECK LINE COUNTER 

/RESET TAB COUNTER 

/HAVE RE RUM OUT OF LINE 

/NO 

/YES, GO FINISH UP, RESET LINE POINTERS 



/SKIP If IT IS A BLANK 

/NOPE, CHECK FOR OTHER THINGS 

/ADO ONt 10 Blank counter (is minus counter] 

/JOIN LINE ANU tab CONTROL SECTION 
/GET BACK ORIGINAL CHAR 
/IS IT A TAB 





SNAICLL 






JNP 


NAINC 




TAD 


(261) 




shaicla 






JNP 


HAINO 




TAD 


(21! tl 




JNS 


PUTCH 




LAC 


(2e«i 


HAINO 


TAD 


BLANKC 




JHS 


PUTiyH 


NAINC 


Oil 


BLANKC 




LAC 


TCHAR 




JHS 


PUTCH 


HAINK 


ISZ 


TABC 




JHP 


MAINE 




LAX 


-18 




OaC 


TABC 


HAINE 


ISZ 


NAXC 




JHP 


MAIN 




JNP 


UCLP84 


/ SPECIAL CHARACTERS 


HSPtC 


SZAJLLAICMA 




JHP 


nsPfcca 




TAD 


BLANKC 




OAC 


BLANKC 




JHP 


HAIMK 


MSPEC2 


LAC 


TCHAR 




SAO 


(11 



Xt-4-18 



PAGE IS 



UP.Si SRC 



RSX lint PRINTIlH htNOttK 



i»t 

997 
SSt 
39g 

see 
eei 

(02 
613 
604 

ses 

686 
617 
688 
689 

6ie 

611 

6i: 

619 
614 
619 
616 
617 
616 
619 
628 
6S1 
622 
623 
624 
629 
626 
627 
626 
629 
636 

est 

632 

633 
694 
639 
636 
637 
636 
639 
646 
641 
642 
649 
644 
649 
646 





JBP 


HIAB 




3>U 


CIS 




JnP 


UCLP84 




3*0 


(28 




jup 


BCR 




s*u 


(14 




JUP 


"SPECa 




s»c 


(21 




JBP 


HSPEC4 


nsPtcs 


L>C 


(12 


HSPEC3 


jnS 


PUTCH 




JBP 


HAXN 


MSPtC4 


l,»c 


C12 




JUS 


PUTCH 




JliP 


HSPEC9 


NCR 


Jns 


RESETL 




L«C 


(19 




JHP 


nSPbC3 


MT«B 


LAC 


TA8C 




T»l) 


BLANKC 




OtC 


BLANKC 




L»C 


TABC 




CtlAlltC 






T»0 


HAXC 




D<C 


HAXC 




sn« 






JBP 


UCLP84 




LAN 


•18 




D4C 


TABC 


1 


JBP 


MAIN 


1 

UCLP84 


CL*il»C 






JHS 


SEVRN 




LAC 


LBf 




SZAlLttlCN* 




JHP 


RtTHV 




ISZ 


UBF 


/ 
RETNT 


JBS 


PUTCH 


CLAlItC 






OAC 


POST 




DZB 


LPDON 




LAC 


TCBP 




jna 


LPIU 


/ 

OPOONE 


JHP 


HFTGR 


DZ" 


POST 




DZM 


LPDON 




LAC 


evil 




ANO 


(17777: 




SAO 


(17788 



/yUP> GO DO IT 

/CAHRIAGE RETURN 

/END OF LINE ON CARRIAGE KETURN 

/FORTRAN OTS OVERPRINTr DO AS CR 

/FOHH FEED 

/JUST PUT IT OUT. FOR NO" 

/FORTRAN DOUBLE SPACE 

/UO AS TUO 12<S 

/DEFAULT ON UNRECOGNIZED CONTROL CHAR, IS LINE FEED 

/PLACE IN BUFFER 

/GO DO NEXT 

/FIKST OF TNO 12'S FOR THE 21 

/GO DO THE SECOND 112 

/RESET LINE POINTERS 

/CAKRIAGE RETURN 

/PUT CHAR AND LOOP 

/GET REHAINING COUNT FOR TAB 

/ANO ADD TO CUMULATIVE BLANK COUNT 

/ANU TO LINE CHECKEK 



/SKIP IF SOHE LINE LEFT 

/NONE LEFT, FINISH UP, RESET POINTERS 



/RESET TAB COUNTEk 
/NEXT CHAR 



/FRON USER BUFFER, SET E» 

/THIS RETURNS NODE SETS bV ETC. 

/GET CHAR COUNT 

/SKIP ON ZERO COUNT, -1 IS A BLANKl 

/GO 00 REGULAK 

/BAKE COUNT 1 FDR THE BLANK 

/PUTS A SINGLE BLANK OUT 

/SET POST, SATS Ht<RE HAI1ING 

/CLEAR INTERRUPT HAPPENED 
/POINTER FOR PIREX COHHANU STRING 
/SEND IT 
/■AIT FUR INTERRRUPT TO HAKE US UP 



/RETURNED FROM PDP-11 
/CLEAR FLAGS 
/POP-U STATUS 
(177777 /KEEP THE POP-ll BITS 
(177881 /OUT OF POOL ERROK 



XI-4-19 



PAGE U 

647 
648 
649 
65e 
691 
69! 
699 
694 
699 
696 
697 
696 
69S 
660 
66t 
662 
663 
664 
669 
666 
667 
668 
669 
678 
671 
672 
679 
674 
679 
676 
677 
678 
679 
668 
681 
662 
689 
684 
685 
666 
687 
688 
689 
690 
691 
692 
693 
694 
699 
696 
697 
698 



LP, 32 SRC 



RSX Lint fOltttiS ntNDttIi 

jnP RETRY /YE5, GO TRY AGAIN 

RTL /PBP-ll SIGN BIT TO OUR SIGN 8IT 

SPAIHTR /KEnAKE GRIG, CODt, SKIP IF UK 

DAC inPERR /STORE >IRPUSSIULkl ERROR AND CONTINUE?!? 

JnP PQ /SO LOOK POR MORE HORK 

HPtRR 8 /InPOSSIBLE EKROR HOLUER 

CHARACTER UNPACKING ROUTINE 

THIS ROUTINE 'OWNS' THE NO 



CHARACTERS ARE OeTAlNED l-RON X12 PUINTER, EACH CHAH 

IS RETURNED RIBHT JUSTIFIED IN THE AC 

TEMPI HAS A niNUS COUNT OF THE NURDS TO BE OUTAINED 

t-RDH THE Input pointer xi2 



XCT 
SKP 
JMP* 



ni 

GETSlI 



NOK DO INAGE node 
TENPl 



I 

GtTSN 

I 

GtTtM 



ISZ 

SKP 
JNP 
LAC* 
gnp 



AND 
JNP« 



UCLPBA 
X12 

GtTCM 



tl77 

GETCH 



/SKIP IF IT IS ASCII 



/GETSW IS POINTER TD C0KKEC1 ACTION ON ONTHE 
/CORRECT ONE OP THE FIVE H0SSI6LE CHARIS 



/SKP ON NOT THRU YET 
/DONE 

/FINISH UP IN CONNON 

/POINTER TO CORRECT ACTION. INIT'ED FHON GETIN 
/FILLED 6Y jns GETSti AFTEH EACH CHAR 
/CDHNON FINISH UP, STRIP >TKA BITS 
/OUT 



/ 

GETIN GET! 

/ 

/ INDIVIDULA CHARACTER ACTION 

/ 



/INIT GETSN TU POINT TO FIRST CHAR ACTION 



GETU 

/ 

GETl 



JNS 

ISZ 

SKP 

jnP 

LAC« 

L»a 

LLS 

Jns 
LLS 
JNS 



GETSN 

TENPl 



GETSN 

7 

GETSN 



/AFIEH 5TH CHAR, POINT BACK TO FIHSt 



/UUT OF PAIK5Y 

/SKIP IF NOT 
UCLP84 /ASCII, RESET LINE POINTERS ON RUNOUT 
X12 /FIRST aORD UF PAIR 

/INTO MO FOR SHIFTING 



/DONE, LEAVE POINTER FOR SECOND CHAR 

/SECOND CHAR 

/LEAVING POINTEK FOR 1HIHU 



XI-4-20 



PAGE 19 

«99 
Jt» 
TBI 
7tl 
7B9 
704 

rss 

796 
7B7 
7es 
7ig 

71B 
711 
712 
713 
714 
71S 
716 
717 
716 
7U 
726 
721 
72! 
723 
724 
726 
726 
727 
726 
729 
736 
731 
73i 
793 
734 
799 
736 
737 
736 
736 
746 
741 
742 
74J 
744 
74! 
746 
747 
746 
748 
7S6 



LI».J2 SRC 



RSX LINt PRINTER HtNQLEH 



LLS 

D>C 

LtC* 

Lng 

LAC 

LLS 

jns 

LLS 

jns 
LLS 

jnp 



GETSU 
X12 

GtrSH 

3 

GETS4 

7 

GETSM 

7 

GETa 



/THE HALF-AND-HALP CHAR 

/VERY T£«POkAH» 

/LANIT EMU IN HIODLt OF PAIR 

/SECOND NORU TO SHlhTtR 

/BRING HACK FIRST 

/COnPLETE CNAR 

/LEAVING POINTER TO FOURTH ACTION 

/LEAVING FOR !> 

/BACK TO TOP FOR POINTER TO 1 



CHARACTER PUTTER FOR PDP-11 

TNO CHARIS PER KORO FORMAT. 
IS PLACED IMNEDIATELT ABOVE 
UNLSEO. CHAR IS DELEVERD TO 
OF PUTIN INTO IT. ROUTINE COUNTS THE OUTPUT CHARS IN PUTCH 



FIRST CHAR IS RIGHT JUSTIFIED, SECOND 

FIRST, LEAVING TOP THO BITS OF HORU 

US IN AC. INIT PUTSH By DACIING CONTENTS 



/EIGHT BITS RENAIN 

/DON'T SEND A LEADING LF> PUP-U PUTS ONE IN 

/NOT FIRST TIbE, skip test 

/IS IT A LINE FEEU 

/TUPi DO NOTHING 

/COUNT AN OUTPUT CHAR 

/GO DO FIRST UR SECOND CHAR 

/INIT'ED AS PUTl, FILLED LATER BT JNS PUTSW 

/OONEa RETURN 

/START AT FIRST CHAR 

/LEAVE POINIER FOR FIRST AFTER SECOND 

/FIRST CHARACTER ACTION, PLACE RIGHT JUSTIFIES 

/LEAVING POINTER FOR SECOND 

/PU1 CHAR IN RIGHT PLACE 

/PUT HALVES TUGETHEH 

/BOTH In buffer 

/HOVE POINTER 

/OUT OF BUFPER CHECK IF POINTER POINTS TO SELf 

/OUT OF SPACEl 

/GO TELL PUTS* THAT PUTl IS NEX5T 

HESETL 

THIS ROUTINE RESETS THE POINTERS TO THE BEGINNING OF A LINE 





AND 


C377 




ISZ 


FIRST 




JHP 


.»3 




SAD 


C12 




JHP« 


PUTCH 




ISZ 


LBP 




JHP* 


PUTSW 


PUTSN 


e 






JnP« 


PUTCH 


/ 






PUTIN 

/ 

PUTS 


PUTl 




JNS 


PUTS4 


PUTl 


OACa 


PUTP 


/ 
PUTZ 


JHS 


PUTSW 


CLLISNHA 




R«R 






XUR« 


PUTP 




OAC« 


PUTP 




ISZ 


PUTP 




LAC 


PUTP 




SAD 


CPUTP 




JHP 


UCLP64 




JHP 


PUTQ 



XI-4-21 



LP. 32 !<«C 



RSX LINt PRlNTtH H«NdLEN 



?51 
792 
7S5 
75* 
755 
796 
757 
756 
79t 
768 
781 
782 
783 
784 
7«S 
786 
787 
786 
769 
778 
771 
772 
773 
774 
779 
776 
777 
776 
77» 
768 
781 
782 
789 
784 
785 
786 
787 
788 
789 
79B 
791 
792 
799 
794 
795 
7Se 
797 
796 
799 
608 
681 
682 



RtSfcTL 



8 

U»" 

04C 

OZH 

L«C 

D4C 

JMP. 



-18 

TIBC 

BLtNKC 

LINLln 

n>XC 

KEStTL 



/6 SPACES PtN TAB 

/THt PDP-U giJESS<T KNOW ABOUT TABS 
/ZCKO CUUnT Of COhStCUTlVE BLANKS 
/NunBER Of- CHARACTERS PEK LINE 



FIRST 8 

LINUP -L 

HAXL 8 

TLHaR 6 

BLANKC 8 

TABC 8 

STLA 6 

/ 

/ 

/ 

/ TCB hOR StNDIIli BUFFER TO POP-1 

/ 

TCB 



/INJT To -1 TU SHUN FiRST CHAR, 
/(.OONTER FDR HAX CHAR'S PER LINt 
700 ISZ OK LINLIH COUNT HERE 
/TEHPORART FOR HOLOINQ CHAR 
/COUNT OF CUNSECUTIVE BLANKS 
/MODULO 8 COUNT NHERE NEXT TAB GOES 
/REHENBER RHO IS UOlNb PRINT 
/ASLII SKIPS, INAliE OOESN'T 



Evil 
STADO 



LPIOT 
STATUS 



APISLT<4B0'>APILVL 

OEVCUO 

8 

8 

LBF 

8 

8 



/TELL POP-II HHEKE TO SEND INTERRUPT 

/PIREX UEVICE COUE 

/EVENT VAHAIBLE FROM PIREX 

/PERHANENI BUFFER AOOR 
/NOT USED 
/NOT USED 



/ TCB FOR Slop I/O TO LINE PRINTER ORlvEK 

/ 

/ 

TCBk 8 

DtVCUDE>t77«4ea'l'2B8 
EVllK 8 
/ 

/ POINTERS TO TCB'S 
/ 

TCBP TCB 
TC8KP TCBK 
/ 

/ LOCATIONS FOR UC19 VERSION 
/ 
LPDON 8 



POST 
/ 



DZH 
Oil 
SIOA 



EVll 
EVllK 



/I KHEN OPEKATIUNS FINISHED, OTHEKUISt 8 
/I NHbN WAITING FUR INTtRKUPT. OTHERHISE 



/SUBROUTINE TO SEND TO PDP-11 
/CLEAR RETURN VARIABLE 
/AND THE OTHER ONE, IN CASE IT USED 
/SKIP IF POP-11 CAN TAKE IT 



XI-4-22 



att 

BBS 

see 
as? 

8B8 

80g 

■ IB 
811 
812 
813 
814 
819 
616 
817 
Bl« 
81S 

S2e 

821 
822 

829 
824 
82S 

826 
827 
828 
829 
838 
831 
832 
833 
834 
83S 
836 
837 
838 
839 
848 
841 
842 
843 
844 
846 
846 
847 
848 
849 
898 
891 
892 
893 
894 



LP. 32 'RC 


RSX 


LINt PRINTER HlNOLiiR 






/ 

CLEAN 

/ 


J HP 

LIOH 

JBP» 


.-1 

LPIU 






DZM 
OZH 
L«C 

Jns 

C»L 
JnP« 


POST 

LPOON 

TCBKP 

LPIU 

MPCLER 

CLEtR 


I!(I37S e 777758 


A 


1 

HfCLER 

/ 

/ 

El)R38 


28 

Evil" 

,tNOC 

L»» 


-38 


9837J B 18(1476 
118374 I18fl211 


R 

R 


/ COBHON Ttl»NIN«TION 
/ 

StV JnS SEVRN 
JMP PQ 

/ 






/ SECTION fOR 


POP-19 






/ 
/ 


,IPl)NO 


UC16 



/NOPE 

/AC POIKTS to INSTRUCTIDH LIST 

/THAT'S ALL 

/LLCAR P0ST>LP0ON,PIREX 



/TELL PIRtX TO CLtAK 

/PIKEX REU SENDER 

/»*IT FOR PIREX COMPLETION 



/»*IT FOR PlStX TO SET EV FOR CLEAR DEVICE 



/SET EVENT VARIABLE, OECALRE 3ISN1FICANT 
/EVENT, RETURN NODE, PICK NEXT REQ. 



88375 p »B(1S!6 R 
aeJ7« P «14;iB?B R 



ff0377 B 30CieS0 H 

flP4fl9l P 1 Bflt*!? R 

0040] P 7efi541 A 

"B4(l> p 5811646 R 

884113 P t8«4l7 R 

08404 o 71(6641 A 

ffl8A05 p ^enzil R 

00496 o ni0?002 A 

RO407 P 900080 A 

«041» P l>B0B12 A 



/ LINE FEED a PRINT SINGLE LINE 
/ 



LAC 
OAC 



LAC 
JnS 
LPPl 

LAC 
JhS 
LPPJ 



0020^3 
80801^8 
888012 



nl 
L6F«8 



[LFL) 
PRNT 



(LBF) 
PRNT 



/SET MODE INDICATOR IN NEADER (UNPACKIN6 
/HARDaARE IGNORES HIGH ORDER HEADER HALFWORD 
/tlHEN PRINTING IN SINGLE LINE NODE). 

/PRINT LINEFEED LINE 



/PRINT REQUESTEU line 



/PICK NEXT REOUEST 



/LINEFEED LINE 



/ PRINT THO LINES 



XI-4-23 



LP.SS SRC 



fiSX LINt PRINTER HANDLER 



895 
«S6 
657 
89B 

BS« 

»ie 

881 
882 
869 
884 
86S 
668 
867 
868 
868 
87e 
871 
678 
673 
674 
875 
678 
877 
878 
67S 
886 
881 
862 
889 
684 
689 
886 
887 
886 
88» 
698 
891 
692 
899 
894 
895 
698 
697 
898 
899 
98B 
901 
982 
983 
984 
995 
998 



^0411 B »0ne61 R 

B)I941P o 94flePB K 

88413 e 90PI64& ft 

^8414 P f0Ot4l7 K 

n841^ o 7PI«&?1 * 

>841ff c "f'lM 1 



/ 

PTL 



"9417 
804291 
V9421 
■ 114?? 
"042K 
00424 
00429 
00420 
06427 
00430 

"943) 
00459 
"0493 
"0434 
00430 
80430 
"0437 
"0440 
0044t 
"944!> 
00443 



n00000 
140492 
723777 
«40554 
"606S2 
160C69 
42"417 
140995 
708544 
100493 

700595 
■!B06e4 
741208 

000451; 
;0"452 
740200 
000444 I 
a00604 { 
|004'59 I 
790836 
^40452 I 



00444 R RI00576 K 

00449 B 100459 N 

00440 Q 900954 h 

00447 p 000423 R 

"0450 B 440417 w 

00491 p «20417 R 

"0450 B "0000(5 A 



L«C 
D«C 

L»C 

jns 

LPPM 



(002e02)/«LrER HEADtS TO INDICATE TmO 
LaF«B /ASCII "LlNtS", 



(LBF) 
PRNT 



/PRINT BOTH "LINES" 



/PICK NEXT REQUEST 



/ 

/ PKNT -- SUOROUTINE 10 PRINT A LINE. THE LINE bUfFEH ADURESS 13 

/ IN AC, AND THE IDT TO PRINT IS IN THE LOCATION fOLLONINS THE JHS, 

/ 

PRN1 



I 

PRNU 



Dzn 

AAC 

DAC 

DAC« 

OZB. 

¥CT» 

OZM 

LPEI 

JHS 

LAC 
AND 
3NA 
JHP 
LAC 
SZA 

jnp 
CAL 

Jns 

CLAllAC 

OAC 

CAL 
jns 
LAC 

JHP 



PRNTEF 

-1 

CABF 

(C*A) 

tNCA) 

PRNT 

EV 

WFAB 

EV 
1280080) 

PRNTXT 
PRNTEF 

PRNT2 

TEMCPB 

MFAtt 



/CLEAR ERROR FLAG 

/DETERHINE t SAVE CURRENT ADDRESS 

/SET CURRENT ADDRESS 

/PREVENT "DRD COUNT OVERFLOx 

/EXECUTE PRINI lOI, CLEAR EVENT VARIABLE, 

/ENABLE LP INTERRUPT, AND UAIT FOR THE EVENT 

/VARIABLE TO BE SET NUN-ZERU BY THE INTERRUPT 

/SERVICE ROUTINE, 

/INTERRUPT HAS OCCURRED -- tXAHINE PRINTER STATUS, 
/ALARH ERR OR LP OFF LINE? 

/NO — EXIT PRNT SUBROUTINE 
/NEB ERRORJ 

/NO " DELAY AND RETRY 
/YES " TYPE ERR MESSAGE 



HTCPB 
kFAB 
CABF 
PRNTl 



ISZ 

JnP« 



PRNT 
PRNT 



/DELAY 
/RETRY 

/EXIT PRNT SUBROUTINE 



/ RFAB " SUBROUTINE TO RAIT FOR EVENT VARIABLE II) BE SET AND THEN TO 
/ CHECK THE TRIGGER EVENT VARIABLE TO SEE IF AN ABORT REOUEST SHOULD 
/ BE PROCESSED, 



XI-4-24 



•GE 19 


LP. 3! 




SRC ( 


9(7 








90B 


B?45S 


e 


»B888B « 


9«9 


mi454 


p 


■J88688 R 


91B 


Rn49!l 


R 


!l885e0 R 


911 


tl»45« 


P 


74?el«l « 


912 


"B457 


P 


748188 » 


9tS 


Utittti 


P 


828453 K 


914 








915 








916 








9U 


mttSi 




)4«5«B B 


9ia 


■ 0482 




908581 Fl 


919 


»»^e^ 




1>S8623 H 


920 


90484 




,28626 R 


921 








922 


fle469 




828493 R 


923 


«l!48« 




I148957 R 


924 


08487 




868624 R 


S29 


«047»l 




988961 R 


92S 


»047! 




868623 R 


927 


««47? 




128634 R 


928 








929 








9S9 








931 


fl047n 


P 


188479 R 


932 








933 


80474 


R 


828493 H 


934 








93S 








93$ 








937 








9se 








939 








940 








941 








942 


n0475 




|«0(1B8B « 


943 


80478 




789888 « 


944 


80477 




9B85S7 h 


945 


80888 




S48S52 (i 


946 


80881 




721888 A 


947 


"088? 




918886 t 


94e 


80S8S 




741280 • 


949 


80584 




888611 » 


958 


80889 




^48592 R 


951 


89588 




721008 « 


952 


88987 




738088 4 


993 


88918 




■198880 A 


994 








999 


88SH 




908557 R 


99e 


89519 




•68624 R 


997 


0891 S 




128665 8 


998 









RS« LINt PRINTER M4NDl.ES 



CAL 
LAC 
RTL 
384 
JBP« 



8FECP9 
TG 



/8A1TF0R t» TO BE SET, 

/IS BIT 2 0^ THE TRIGSER SET? 



/NO " RETURN 



/ OE-eUEUE Tie ABORT REQUEST, 



ozn 

LAC 

DAC« 

JH3* 

JnP* 

DAC 

OaCo 

LAC 

DAC* 

JhS* 



TG 

PDVNt 
CRl) 
COQRQJ 

HFAU 

HN 

CR2) 

P0VN4 

(RU 

tOMTQJ 



/PHYSICAL DEVICE NODE »0K 



/IR1> R2> R4, R9, XR s 

/■AS A REQUEST FOUND? 

/NO -- SHOULD NEVER RETURN HERE 

/YES — SAVE NOUE ADR 



AC ARE ALTERED). 



/PHYSICAL DEVICE NODE ADR 

/DETACH LUN I DEVICE, IF NECESSARY, AND THEN 

/EMPTY THE REQUEST QUEUE UF ALL I/O REQUESTS 

/HADE BY THE TASK BEIXG ABORTED, CRli R2i R3, 

/R5, Re, >10, ml, X12, XR i AC ARE ALTERED). 

/SET REQUESTER'S CIORDIS'} EV, DECRE- 

/MENT the I/O PENUING COUNT, AND RETURN NODE TO PUOL. 



,ENOL 
/ 

/ SEVRN — SUBROUTINE TO SET THE BEUUtSTORlS EVENT VARIABLE TO 
/ THE QUANTITY IN AC, DECLARE A SIGNII- ICAK'T EVENT, DECREMENT I/O 
/ TRANSFERS RENDING COUNT CNORMAL MOOt) , AND RETURN REQUEST NODE 
/ TO THE POOL. 



StVRN 



PAL 
LAC 
TAD 
PAX 
LAC 
SNA 
JNP 
TAD 
PAX 
PLA 
OAC 

LAC 

OAC* 

JHS* 



NOSET 
XADJ 



RN 

(R2) 

(IDCD) 



/SAVE EV VALUE 
/REQUEST NODE ADR 



/REQUESTER'S EV 
/NONE SPECIFIED 



/DECLARE I/a REQUEST COMPLETED CDECREMENT 
/TRANSFERS PENDINb COUNT). 
/(RS, XR, S AC ARE ALTERED) 
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LP. 38 «BC 



RSII LlNt PRINTtR HtMDLEIi 



B99 

act 

981 
»»2 
983 
984 
989 
986 
987 
96B 
969 
97e 
971 
97! 
979 
971 
97B 
976 
977 
976 
979 
98e 
981 
982 
983 
984 
989 
986 
967 
988 
989 
998 
991 
99! 
993 
994 
995 
996 
997 
998 
999 
1808 
1881 

188: 

1883 
1884 

1889 
1886 
1887 

1888 
1889 
1818 



B8«14 B 
88nin P 



88S18 a 
88517 



805SP B 
98981 B 



8898? D 

>89?:t p 

8PS84 P 
"B58S P 
•aiSd P 



?P£»6«6 
785584 



988667 
aeP689 



iaffl67iJ 

888479 



;8°>667 
0|6»683 
»e8697 
H68684 
18^678 



88987 o 

8»53B» 



786661 

»0«572 



88931 
88938 
88933 
88934 
"8939 



88938 
88937 P 
8894a p 



448962 
789982 
168962 
789381 
«8P689 



ff(!«888 
787762 
949953 



/ 


L«C 

IS* 


C481aee)/0ECLARt * SISNIFICANT tVENT 


/ 
/ 

/ EXIT 

/ 

D4EX 


L4C 
Jns> 


CPOUL) 
(Rl) 

CNADO) 


/RETUHN REOuEST NUDE TO POOL 
/(R2 IS ALREAOV SETUP) 


JflP« 


SEVRN 


/EXIT 'SEVRN' SUBROUTINE 


REUUEt>1 


CFROH TASK "...REA") 


L«C 

04C< 

L«C 

0*C« 
Jns« 


tPOOt) 

(Rl) 

HH 

(K2) 

(NAOOJ 


/RETURN REOUEST NUDE TU POOL 


/ P0P16 TURN 1 


DFF LINE 


PRINTER 




• IPUNl) 

LPDI 

CAL 


UCIS 
OCPH 


/UlSABLE LP INTERRUPTS 
/OISSCCCONNECT 



PDP-11 TURN DFF LINE PRINTER 
.IFDEF UC19 



JNS 


CLEAR 


ISZ 


CCPB 


CAL 


CCPB 



.ENDL 



88941 P 78<592 A 



/CLEAR OUT DEVICE IN PIREX 
/HARE CONNECT A DISCONNECT 
/ANU DISCONNECT 



/CLEAR ASSIGN INHIBIT FLAG IN PDWL NOOE 



/EXIT 
/ 

/ INTERRUPT SERVICE ROUTINE 

/ 

InT 8 /INTERRUPT ENTRY POINT 

DBA /ENTER INUEI (PAGE] nOUE 

OAC ACBF /SAVE AC 
/ 

/ POP-15 LINE PRINTER INTERiiUPT SECTION 
/ 

.IFUNO UC15 

LPR5 /READ STATUS AND SET IN EVENT VARIABLE 



ISZ 


PDVT* 


,INH 




DZH. 


PDVTA 


,ENB 




CAL 


(18) 
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PAGE Si 

tan 

1(13 

iei4 

IBIS 
IClt 
1117 
1«1S 

leie 
leia 

1221 
IMi 

te29 
lezi 

1125 
us 6 

itir 

1921 
itt) 

tese 
lesi 
its: 
itii 
ie34 

1B95 
1B36 
1837 
1B3B 

ie3B 

1B40 
1B41 
iHt 
1B49 
1B44 
1845 
1846 
1847 

lB4e 
ie4B 
iB9e 
lesi 

1B92 
1B93 
1B94 
1B93 
1B96 
1B97 
tB9e 
1B99 

iBSe 

ICBl 

1B<2 



LP, 32 not 



»854? 
8B943 
IIB544 



a4P59S 
7B«e41 
7B6S21 



"11545 

ttntt 

• 11547 

niissr 
•ass) 

8959? 
88553 
88554 
8855! 
88558 
88557 
8856fl 

88581 

BB9S? 



aSX LXNt PRINTER HtNDLEP 

R D*i: EV 

4 IPCS 

• LPCO 



988660 
789984 
908953 
783344 
828936 

888888 
888888 
888888 
>1!88B88 
1*88888 
988888 
1*88888 

ne8888 
888888 



88569 p 98^888 A 



88564 
88565 
88566 
88567 
88578 
88571 



88978 
8857S 
• 8574 



«88B?a 

i»8»56B 
188811 
•9188955 
•188816 
888536 



888812 
0188888 
"88816 



/CLEAR STATUS, ERH FLAG, i UCImE FLAG 



.ERDC 
PDP-11 LINE PRINTER INTERRUPT SECTION 
.IFDEF UCIS 



CAPI 

LAC 

SNA 

JHP 

DAC 

DAC 

/ 

,ENDi: 

/ 

LAC 
ISA 

INTll LAC 
OUR 
JHP* 

I 

«ADJ e 

ACBP B 

CABP 8 

EV 

HI 8 

Rn b 

TB 8 

/ 

PUVNA B 

PDVTA B 

/ 

TtHPl B 

/ 

NFTCPB 28 
TU 

CCP8 U 
EV 
16 
INT 



POST 

INTll 

TG 

LPDON 



/CLEAR OUT FLAG StT BY PIKtX 

/8ANTED OR NOT 

/SKIP IF TES 

/NQI WANTED, JUST GET OUT 



(4B18Ba)/DECLARE 
ACBF 

INT 



A SIGNIFICANT EVENT 



/RESTORE AC 

/RETURN TO INTERRUPTED PROGKAN 



/XR ADJUST CONSTANT TO SUBTRACT PAGE BITS 

/AC BUFFER 

/INITIAL CURRENT ADDRESS BUFFER 

/EVENT VARIABLE 

/NODE INDICATOR 

/ADDRESS OF REQUEST NODE PICKED FROM QUEUE 

/TRIGGER EVENT VARIABLE 

/PHYSICAL DEVICE NODE ADDRESS 

/ADDRESS OF ADR OF TRIGGER EV IN PHY DEV NODE 



/■AIT FOR TRIGGER 
/CONNECT CPB 



/ 
/ 
/ 
DCPB 



.IFUNO UC15 

LEAVE SOME OUT FDR UCIB TO SAVE SPACE 

12 /DISCONNECT CPB 

B 

lb 
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PtGE 2: 


LP.3S 


KRC 


RSX LlNt PRINTtR nt 


1S«3 


II0S7!I 


P 


ffl00536 


R 




INT 


1064 










/ 




lies 


<I0S7« 


p 


i>00013 


« 


HTCpa 


13 


ittb 


»0577 


p 


nensss 


R 




EV 


1067 


«««0l> 


p 


»0001S 


i 




12 


use 


TO»B1 


D 


Oi0t>001 


A 




1 


106S 










/ 




1070 










/ 




1071 


»ftni 


P 


fle»0S0 


* 


HfELPb 


219 


1072 


BBBBS 


P 


P00953 


K 




EV 


1073 










1 




1074 


n0604 


P 


n027e0 


A 


TtMCP6 


2700 


107S 


i»B«ei» 


P 


•0»555 


R 




EV 


1076 


«B«P« 





PB000S 


A 




UON 


1077 


fflB«B7 


P 


fliP0002 


A 




2 


1076 


tieein 


P 


• BB6U 


R 




ERRM6S 


1079 










/ 




1000 


0B6H 


c 


004002 


A 


EKR6ES 


004e»2l 




0i>ei5 


e 


1100000 


A 








•>e«i3 


R 


»51245 


A 








«ia«f4 


p 


920230 


A 








0061<l 


p 


!!01011 


A 








Bfl«l« 


p 


in7b5» 


A 








00617 


p 


J02450 


A 








fiamt 


p 


^4<^610 


A 








mei\ 


p 


144320 


A 








»«sp» 


p 


•1100000 


A 






1061 










/ 




1062 












.ENDt 


1063 










1 




1064 










1 




1065 






400000 


R 




,EI«D 




»0!JJ 




000101 


A • 








f^eja 




i>0»10! 


A • 








906S!1 




P00010 


A * 








00626 




000337 


A • 








»0«27 




000777 


A • 








11063? 




000017 


A • 








«««3l 




P00027 


A • 








0063? 




O0O036 


A • 








00633 




P00012 


A • 








00634 




1I0K361 


A« 








00636 




000325 


A • 








00S36 




000352 


A • 








00837 




100011 


A • 








0064B 




777776 


» • 








0064! 




000002 


A • 








!I064» 




U00103 


A « 








00643 




000104 


A • 








00644 




000342 


A • 








1^0646 




000776 


A •! 








0064fi 




000000 


R •! 







/0AHK TIME CPB 



/DAIT FCR EVENT VARIABLE CPB 



/TYPE ERR ntSSAGE 



000! .ASCII "••• LP NOT REAOr"<l»> 



PAGE 23 



LP. 32 SRC 



RSX LINE PRINTER HANDLER 



00647 




00«01J 




00690 




008003 




606S1 




774000 




006SS 




050000 




006S3 




060000 




00694 




104000 




00695 




100000 




00696 




003777 




00697 




064000 




00660 




000406 




0066t 




O0?002 




00665 




O0O03& 




00663 




O0O034 




00664 




PBO000 




0066! 




000349 




00666 




401000 




00667 




000240 




00670 




O0O107 




9l7t»0»671 





NO ERROR LINES 
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PtGE H LP. 32 CPOSS REFEHENCE 



ABORT 


BtlS37 


S3T 


352« 












«caF 


flcigss 


!99il 


1932 


1937. 










ALIO 


001132; 


tAQ* 


396 












ATTACH 


<ie25i> 


3A« 


382> 












ATTDET 


•IS969 


3«>> 


396« 












CAA 


(1(1 (103; 


i5a» 


874 












CABF 


(in;94 


975 


899 


1B38. 










CCFB 


nesBB 


210 


989 


999 


lesi. 








DAEX 


»tlS29 


339 


971. 












DCPB 


»<(57» 


981 


!95B« 












DLAD 


«(<(I33» 


15«« 


397 












DHTO 


B(ll>36l 


154* 


37a 


927 










DDRO 


B«0337 


)5i • 


327 


929 










D.TG 


«afl«lil 


|5«» 


21' 












ERRHES 


(imu 


1979 


i9eB« 












ERRJH 


(1(1379 


44a 


479 


821. 










EV 


III9SSS 


221. 
1966 


248 
1972 


299 
1975 


877 


881 


19U 


1939. 1952 


HINF 


911264 


S45 


492t 












HNAh 


(1(1)12!; 


26»« 


2SS 












ILFUNC 


»9235 


:^47* 


354 












INT 


anssa 


)»95* 


1934 


1994 


1983 








INTll 


(I9S47 


1"24 


1932. 












lOCD 


|lfl(l3'('S 


ISI* 


957 












UBF 


Bnaaa's 


ftm" 


279 


289 


45S 


483 


999 


511 914 






527 


549 


629 


632 


726 


776 


837 844 






957 


85il 












LBZ 


MBjais 


iSi. 
524 


194« 


199 


199 


275 


289 


4/8 481 


LBZX 


«I»1I(IB" 


l9o* 


299 












LFL 


edAflis 


84ir 


8Se« 












LFPSL 


<IB37S 


49c 


519 


836. 










LMNAN 


n«n39 


9H 


2SS« 












LPCD 


798821 


16^* 


231 


1913 










LPCS 


798641 


16k* 


232 


1912 










LPOI 


798861 


164* 


gem 












UPOVL 


99927 


990 


264. 












LPEI 


79S34A 


i6:<* 


S7B 












LPPN 


798521 


J6!* 


S61 












LPPl 


796541 


1«?* 


S42 


846 










LPRS 


796552 


)6j« 


1919 












USNAM 


99931 


91' 


266. 












LTG 


99932 


92s 


267. 












LUN 


999999 


t!F« 


251 


1976 










untie 


99933 


929 


266. 












MI 


99556 


4H 


437 


497 


539 


666 


836 


1949. 


NTCPB 


99578 


S9S 


1969. 












NADD 


999197 


14«» 


969 


979 










NOSET 


99511 


040 


955. 












POVL 


999292 


14a* 


264 












POVNA 


99561 


919 


394 


322 


369 


384 


918 


925 1944 


PDVTA 


99562 


91" 


224 


999 


997 


1945. 






POOL 


999249 


f47« 


982 


971 
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PAEE as LP, 3! CPOSS REFEKENCt 



PO 


oezil 


1194* 


3IB« 


691 


626 


640 


863 






PRINT 


aezes 


1141 


418* 


422< 


512 










PRNT 


de^u 


041 


645 


668 


e/e* 


S76 


898 


699 




PRNTEP 


00452 


«7i 


885 


691 


991* 










PRNTXT 


«I!4S«I 


net 


est' 














PRNTl 


98423 


»74» 


696 














PHtm 


0B444 


007 


693* 














PTL 


80411 


S0? 


505 


507 


515 


656« 








RM 


ness? 


JSi. 
104I« 


371 


366 


440 


1123 


944 


9S5 


973 


BI 


eegiai 


14(» 
S75 


21B 


326 


370 


iSS 


919 


926 


963 


R2 


(i»aia? 


|4». 


218 


372 


387 


441 


924 


9S6 


974 


R3 


(I«ill«l3 


14:<. 


44} 


451 


467 










R4 


n«(iia4 


(44« 


446 


456 


475 


529 








SEV 


BII373 


3411 


390 


392 


403 


416 


434 


464 


825< 


SEVRM 


««473 


499 


626 


825 


931 


942* 


967 






SNiri 


BBB123 


<4I<« 


266 














SPl 


IIB2Sfl 


377 


391« 














START 


andSui 


?0O» 


1(»86 














TEMCPB 


»«|SB4 


0SF 


1074. 














TEHPI 


SISS63 


444 

1047* 


466 


477 


482 


468 


53S 


673 


698 


TG 


«09e« 


!>67 

105" 


305 


319 


311 


"10 


917 


1025 


1842< 


V»J» 


PRB34P 


159* 


447 


468 












HC* 


CiBaa34 


I9a. 


675 














HPtb 


90493 


• 7e 


669 


694 


986* 


»13 


922 


933 




HFECPB 


03607 


90<i 


1071. 














"FTCPB 


00564 


«97 


1(»49» 














hftgr 


00297 


949 


256 


297« 


319 


329 


640 






XtOJ 


0069!) 


927 


331 


945 


950 


1436* 








»!! 


090012 


)3». 


452 


454 


466 


926 


676 


693 


781 


«1J 


000913 


130« 


464 


487 












«17 


000917 


14i«* 
















,ENB 


705521 


I6li* 


996 














.INH 


795522 


t«7. 


996 
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CHAPTER 5 
CONSTRUCTION OF FRONT-END INTERRUPT DRIVER TASKS 



The Front-End Interrupt Driver Task has both computational and 
interrupt-processing capcibilities. Unlike the Computational Task, the 
Front-End Task has an internal interrupt routine. The Front-End Task 
does not however, utilize the QUEUE I/O Directive to control this 
routine as do I/O Handler Tasks. 

The following pages present a sample Front-End Interrupt Driver Task 
neuned VPVEC, which is used for generating straight-line vectors on the 
VP storage scope. A full assembly listing is included on subsequent 
pages. VPVEC is a subroutine with four entry points for performing 
the following operations: 

. Connecting to and disconnecting from the interrupt line 

. Erasing the display 

. Plotting a straight-line vector 

The following description summarizes the flow of control through this 
subroutine. Line numbers in . the leftmost column below refer to 
decimal line numbers included at the left margin of the assembly 
listing. 



Line Number 
25-43 



44-54 



55-61 



Label Description 

CINT Connect display interrupt routine, 
VPVEC, to interrupt line 14. Note that, 
if the Event Varieible (EV) is negative, 
the connection could not be made and the 
subroutine will delay for ten clock 
ticks and then try again. If a 
successful connection is made, EV is 
cleared before returning to the caller. 

DINT Disconnect display interrupt routine, 
VPVEC, from interrupt line 14. The 
testing of the EV is not required here, 
so the address of EV in the CAL 
Parameter Block, line number 52, is 
zero. 

ERASE Erase the face of the storage scope. 
This operation (EST) generates an 
interrupt once the display has been 
erased and requires waiting until 
completion. This is done by issuing a 



XI-5-1 



Line Number Label Description 

WAITFOR EV from routine WFINT (line 
180). The interrupt routine, VPVEC, 
clears the display flag when the erase 
operation has completed, sets the EV, 
emd declares a Significant Event (API 
level 6) , This results in a scem of the 
Active Task List and a return following 
the WAITFOR (contingent upon priority) . 

62-178 VECTOR This is the straight-line vector plot 

routine which calculates the points 
required to generate the line, and 
displays them one point at a time. 
Following each point displayed, a 
WAITFOR is done to wait for the 
completion of the displayed point (lines 
149 and 176). 

179-186 WFINT Subroutine to issue a WAITFOR EV 

Directive until the point or erase 
operation has completed. It then clears 
the EV before returning. (If the EV 
were not cleared, the next WAITFOR EV 
issued would return immediately since 
the EV is set.) 

187-197 VPVEC Display interrupt service routine which 

sets the EV signifying the operation is 
complete and declares a Significant 
Event (API level 6). The display flag is 
cleared and control returned to the 
interrupted Task. 
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PACt 



VPiB 



SRC 



1 
■i 
i 

4 

s 

6 
7 
B 
» 
IB 
H 
12 
li 
14 
l» 
16 
17 
18 
1» 
Zt) 
21 
22 
23 
24 
2» 
26 
27 

2e 

2» 
319 
31 
32 

3a 

34 

3S 
36 
37 

38 
3» 

42 
41 
42 
43 
44 

4i) 

46 
47 
48 
4» 
50 
51 
52 



700se4 
7K06IS4 
71)0/24 
700S21 
700722 
700564 
700664 



00000 K 000000 

00001 K 000011 



00002 
0000J 
02004 
0000» 
00006 
00007 



200236 
140236 

740100 
620002 
000015 
000206 



00010 K 600001 



00011 H ^00011 A 

00012 H 000236 R 

00013 R 000014 A 

00014 H 000210 R 

00015 K 000013 A 

00016 H 000236 R 

00017 H 0001910 A 
00020 H 000001 A 



00021 N 000000.. A 

00022 H 000024 R 

00023 H 620021 R 

00024 H 000012 A 

00025 H 000000 A 



/ EDIT 

/ 

/ ERASE 

/ SCOPE 

/ 

/CALL,IN 

/ 

/ 

I 

/ 

t 

I 

l.XB»700 

LYB»70i) 

EST"700 

SODF»70 

CODFi/0 

|.XBD=70 

LYBD=70 

/ 

/ CINT 
/ 

CINT 
CINTl 



1/ OCT 71 



H iKREJCI 



« VECTOR — FORTRAN CALLABLE SUBROUTINE TO ERASE 
, OR TO CONSTRUCT A VECTOR FROM Pl(IXl,IYl) TO PZ 



G SEQUENCES! 
CALL CINT 
CALL iJlNT 
CALL ERASE 
CALL VECTOR (IXli IY1,IX2,IY2) 



[CONNECT interrupt: 
CDISCONNECT INTERRUPT] 



504 

604 

/24 

0521 

0722 

0564 

0664 

.SLOBL CINT.DINT,EKASE,VECTOR,.DA 

.- CONNECT INTERRUPT LI^E 



IC 
EV 
EV 

CINT 
MARK 
WFCPB 
CINTl 



IC 



/ 

MARK 



/ 

/ OINT 

/ 

DINT 



/ 

ID 





CAL 

LAC 

U^M 

SMA 

JMP» 

CAL 

CAL 

JMP 

11 
EV 
14 
VPINT 

13 

tv 

10 
1 



DISCONNECT INTERRUPT LINE 



CAL 
JMP» 

12 





ID 

DINT 



53 



9026 K 000014 A 



14 
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PAG£ 

S4 
5S 
56 
S7 

sa 

59 

60 
61 
62 
6J 
64 
6» 
66 
67 
6B 
69 
7B 
71 
72 
73 
74 
75 
76 
77 
78 
79 
619 
81 
B2 
B3 
B4 
B» 
B6 
87 
88 
89 
90 
91 
92 
9i 
94 
95 
96 
97 
9B 
99 

lai 

102 

leii 

104 
105 
106 



VPi8 SRC 
00027 H 000210 R 



00040 K 000000 A 

00031 R 700724 A 

00032 R 100202 R 

00033 R 620030 R 



00034 
00035 
00036 
00037 
00040 
00041 
00042 

00043 
00044 
00045 
00046 
00047 
000519 
00051 
00052 
00053 
00054 
00055 
00056 

00057 
00060 
00061 
00062 
00063 
00064 
00065 
00066 
00067 
00070 
00071 
00072 

00073 
00074 
00075 
00076 
00077 

00100 
00101 



000000 

120240 
600043 
000000 
000000 
000000 
000000 



R 220 
R 740 
K 360 
R 722 
R 741 
R 740 
R 040 
R 730 
R 751 
R 777 
R 740 
R 040 



220 

740 

360 

722 

741 

7 

040 

730 

751 

777 

740 

040 



037 

031 
041 

000 
100 
031 
222 
000 
100 
776 
030 
224 

040 
031 
042 
000 
100 
031 
223 
000 
100 
776 
030 
225 



H 200223 R 

R 740031 A 

H 340222 R 

R 741100 A 

R 600121 R 

H 200222 R 

H 040232 R 



VKINT 
/ 

/ ERASE -» ERASE STORAGE SCOPE 
/ 
ERASE 

EST 

JMS UIFINT 

JMP» ERASE 
/ 

/ VECTOR -- CONSTRUCT LINE 
/ 



VECTOR 



XI 
Yl 
X2 
V2 
/ 





JMS* 
JMP 







LAC* 

TCA 

TAD* 

PAL 

SPA 

TCA 

UAC 

PLA 

spa;cla 

LAW 
lAC 
UAC 

LAC* 

TCA 

TAD* 

PAL 

SPA 

TCA 

UAC 

PLA 

i>PA!CLA 

LAW 

lAC 

OAC 

LAC 
TCA 

Tad 

SPA 

JMP 

LAC 
UAC 



,0A 
.♦5 



XI 
X2 

OELX 

-2 

XINC 

Yl 

YZ 

DELY 

-2 

YINC 

DELY 

OELX 

V2 

OELX 
NC 



/FETCH ARGUMENT ADDRESSES 



/DETERMINE DELTA-X i X-INCR POLA 



/DETERMINE DEITA-Y « Y-INCR POLA 



/IS DELTA-X GREATER THAN OR EQUAL 



/YES -- INITIALIZE FOR H0RI2 LARGE 
/NO — INITIALIZE FOR V£RT LARGE 



/NC^OELX 
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AGE 3 


VP.b 


SRC 










1B7 


00102 


H 200223 


R 


UAC 


DELY 


/NH«DELY 


10B 


eziHi 


K 040235 


R 


UAC 


NR 




1B9 


00104 


H 220037 


R 


LAC* 


XI 


/LCC«X 


IIK 


00109 


H 040230 


R 


UAC 


LCC 




111 


00106 


H-220040 


R 


UAC* 


Yl 


/SCC«Y 


112 


00107 


K 040226 


R 


UAC 


sec 




Hi 


0011liS 


H 200241 


R 


LAC 


(L'^BD) 


/lcm.lxbd 


114 


00111 


K 040177 


R 


QAC 


LCM 




119 


00112 


H 200242 


R 


LAC 


(LYB) 


/SCM»LYB 


116 


00113 


H 040173 


R 


OAC 


SCM 




117 


0B114 


K 200224 


R 


L*C 


XINC 


/LCI»XINC 


iia 


00119 


H 040231 


R 


UAC 


LCI 




11» 


00116 


H 200225 


R 


LAC 


YINC 


/SCI. YINC 


1219 


00117 


H 040227 


R 


UAC 


SCI 




121 


00120 


H 600141 


R 


JMP 


V3 




122 






/ 








123 


00121 


H 200223 


R V2 


LAC 


DELY 


/NC»DELY 


124 


00122 


M 040232 


R 


UAC 


NC 




12S 


00123 


K 200222 


R 


LAC 


DELX 


/NH.DELX 


126 


00124 


K 040235 


R 


UAC 


NR 




127 


00129 


K 220040 


R 


LAC* 


Yl 


/LCC»Y 


12B 


00126 


K 040230 


R 


UAC 


LCC 




129 


00127 


H 220037 


R 


LAC* 


XI 


/SCC«X 


13B 


00130 


M 040226 


R 


UAC 


sec 




131 


00131 


k 200243 


R 


LAC 


(LYBD) 


/LCMsuYBD 


132 


00132 


H 040177 


R 


UAC 


LCM 




13a 


00133 


K 200244 


R 


LAC 


(LXB) 


/SCM«LXa 


134 


00134 


H 040173 


R 


UAC 


SCM 




13i> 


00139 


H 200225 


R 


LAC 


YINC 


/lci»yinc 


136 


00136 


R 040231 


R 


DAC 


LCI 




137 


00137 


H 200224 


R 


LAC 


XINC 


/SCI. XINC 


13B 


00140 


R 040227 


R 


UAC 


SCI 




139 






/ 








14IS 


00141 


N 200232 


R V3 


LAC 


NC 


/NT«NC 


141 


00142 


H 040233 


R 


UAC 


NT 




142 


00143 


H 744020 


A 


KCR 




/NA.NC/2 


143 


00144 


H 040234 


R 


uiic 


NA 




144 






/ 








149 


00149 


H 220037 


R 


LAC* 


XI 


/PLOT INITIAL 1 


146 


00146 


R 700904 


A 


LXB 






147 


00147 


R 220040 


R 


LAC* 


Yl 




148 


00190 


R 700664 


A 


LYBD 






149 


00151 


K 100202 


R 


JHS 


WFINT 




ISB 






/ 








151 


00192 


R 200232 


R PLl 


LAC 


NC 


/NC.0 ? 


152 


00153 


H 741200 


A 


SNA 






153 


00194 


H 620034 


R 


JMP* 


VECTOR 


/YES -- EXIT 


154 


00199 


R 723777 


A 


AAC 


-1 


/NO -- NC.NC-1 


159 


00156 


R 04^1232 


R 


UAC 


NC 




156 






/ 








157 


00197 


R 200234 


R 


LAC 


NA 


/NA.NA*NR 


15a 


00160 


R 340235 


R 


TAD 


NR 





159 



00161 H 040234 R 



UAC 



NA 
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PACE 



VPiB SRC 



IftlJ 










/ 






i6i 


00162 


H 


200233 


R 




LAC 


NT 


1«2 


00163 


R 


740031 


A 




TCA 




169 


00164 


H 


340234 


R 




TAO 


NA 


164 


00165 


n 


7«1100 


A 




SPA 




16» 


00166 


H 


600174 


R 




jiip 


PLZ 


166 


00167 


H 


040234 


R 




UAC 


NA 


167 


00170 


H 


200226 


R 




LAC 


SCO 


168 


00171 


H 


340227 


R 




TAD 


SCI 


16» 


00172 


K 


040226 


R 




DAC 


sec 


170 


00173 


R 


740040 


A 


SCM 


XX 




171 










/ 






172 


00174 


H 


200230 


R 


PL2 


LAC 


ucc 


173 


00179 


H 


340231 


R 




TAD 


LCI 


174 


00176 


H 


040230 


R 




OAC 


LCC 


179 


00177 


H 


740040 


A 


ICM 


XX 




176 


00200 


k 


100202 


R 




JUS 


wriNT 


177 










1 






178 


00201 


H 


600192 


H 




JMP 


PLl 


17S 










/ 






180 


00202 


H 


000000 


A 


WFINT 







181 


00203 


H 


000206 


R 




CAL 


WFCPB 


182 


00204 


H 


140236 


R 




OJM 


EV 


184 


00205 


R 


620202 


R 




JMP* 


WFINT 


184 










/ 






18!) 


00206 


H 


000020 


A 


UFCPB 


20 




186 


00207 


R 


000236 


R 




EV 




187 










/ 






188 


00210 


R 


000000 


A 


VPINT 


li) 




189 


00211 


H 


707762 


A 




DBA 




19B 


00212 


R 


040237 


R 




UAC 


ACBUF 


191 


00213 


R 


440236 


R 




ISE 


EV 


192 


00214 


R 


200245 


R 




L*C 


(401000) 


193 


00219 


H 


705904 


A 




15* 




194 


00216 


R 


700722 


A 




CUOF 




19S 


00217 


R 


200237 


R 




LAC 


ACHUF 


196 


00220 


H 


703344 


A 




OHR 




197 


00221 


R 


620210 


R 




JMP» 


VPINT 


198 










/ 






199 


00222 


R 


000000 


A 


DELX 







iZe 


00223 


R 


000000 


A 


DELY 







2191 


00224 


R 


000000 


A 


XINC 







2Z2 


00229 


R 


000000 


A 


YINC 







iZi 


00226 


R 


000000 


A 


sec 







204 


00227 


R 


000000 


A 


SCI 


ki 




209 


00230 


R 


000000 


A 


LCC 







206 


00231 


R 


000000 


A 


LCI 







207 


00232 


R 


000000 


A 


NC 







208 


00233 


R 


000000 


A 


NT 







209 


00234 


R 


000000 


A 


NA 


U 




21B 


00239 


R 


0000i;0 


A 


NR 







211 


00236 


R 


000000 


A 


EV 







212 


00237 


R 


000000 


A 


ACBUF 








/NA>NT 



/NO -- DO LARGE COUNT MOVEMENT 
/YES " NA»NA-NT t COMBINED MOVE 
/SMAUL COUNT MOVEMENT 



/(LYB OR LXBl 

/L*RGE COUNT MOVEMENT 

/(LXBO OR LYBO) 

/TO EXIT TEST 



/DELTA-X 
/DELTA-Y 

/x INCREMENT (♦! OR -1) 
/Y INCREMENT <*1 0" -1) 
/SMALL COUNT COORDINATE 
/SMALL COUNT INCREMENT 
/LARGE COUNT COORDINATE 
/LARGE COUNT INCREMENT 
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PACt 



VP,8 SRC 



2li 






211 


neeessB a 






002*11) H 020240 E 






02241 H 700564 A 






00242 H 700604 A 






li)024^ K 700664 A 






00244 H 700504 A 






0B24S H 401000 A 





SIiE«00246 



i&ND 



NO ERBOK LINES 
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PAGE 



VP,8 CROSS REFERENCE 



ACBUF 


00237 


190 


195 


212» 






CODF 


700722 


17* 


194 








CINT 


00000 


<:i 


25» 


30 






CINTl 


00001 


z»» 


33 








OELX 


00222 


79 


101 


105 


129 


19»« 


DELV 


00223 


92 


99 


107 


123 


Z00* 


DINT 


00021 


21 


47# 


49 






ERASE 


00030 


21 


5b» 


61 






EST 


700724 


15« 


99 








EV 


00236 


27 


28 


36 


41 


18Z 186 


IC 


00011 


Z6 


39* 








ID 


00024 


4S 


51» 








ucc 


00230 


110 


i28 


172 


174 


209* 


LCI 


00231 


lis 


136 


173 


206* 




LCM 


00177 


114 


13Z 


179» 






I.XB 


700504 


13* 


133 


146 






LXBD 


700964 


18* 


U3 








LYB 


700604 


14» 


115 








LYBD 


700664 


19» 


131 


148 






MARK 


00019 


31 


40* 








NA 


00234 


143 


157 


1S9 


163 


166 209* 


NC 


00232 


106 


124 


140 


151 


199 Z07» 


NR 


00235 


108 


126 


198 


210* 




NT 


00233 


in 


161 


208* 






Pll 


00152 


ISl* 


178 








PLZ 


00174 


169 


172« 








sec 


00226 


112 


130 


167 


169 


Z03» 


SCI 


00227 


120 


138 


16S 


204* 




SCM 


00173 


116 


134 


170» 






SDOF 


700521 


16* 










VECTOR 


00034 


Zl 


69* 


193 






VPINT 


00210 


38 


64 


188* 


197 




V2 


00121 


Itlj 


123« 








V3 


00141 


121 


140* 








WFCPB 


00206 


32 


181 


lbS» 






WriNT 


00202 


6Z 


149 


176 


180* 


lai 


XINC 


00224 


84 


117 


137 


201* 




XI 


00037 


68* 


73 


109 


129 


145 


xz 


00041 


70* 


7S 








YINC 


00225 


97 


119 


135 


202* 




Yl 


00040 


69* 


66 


111 


127 


1*7 


YZ 


00042 


71* 


88 








• DA 


00240 


Zl 


66 









191 



211* 
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CHAPTER 6 
USE AND ALLOCATION OF I/O BUFFERS 



This chapter presents a description of the allocation of I/O buffers 
within a Task's partition for use by I/O Handler Tasks. It also 



describes how Tasks such as the Asseinbler make use of 
core and how buffer preallocation is performed. 



available free 



6.1 I/O BUFFERS 

Some I/O Device Handlers or I/O Driver Tasks require intermediate 
buffering of data. For example, disk file Handlers read and write 
blocks of 256 words to and from the disk, but user Tasks typically 
read and write much smaller records. Thus records are packed and 
unpacked in intermediate I/O buffers rather than being transmitted 
directly to emd from the disk. This has the effect of reducing the 
nuinber of disk transfers. It is often necessary because some disks 
can only be addressed in complete blocks. 

It would be possible to provide I/O buffers internally within I/O 
Device Handlers, but this would limit I/O handling capabilities, and 
it is desiriOale to have an unlimited number of open files in the disk 
file Handler. Thus buffers must be provided externally, and are 
created, when needed, within the partition of the Task issuing the I/O 
call. 



6.2 PREALLOCATION OF I/O BUFFERS 

A partition is constructed in such a way that the Task resides in the 
bottom of the partition and I/O buffers are created at the top. A 
certain amount of free core (see Figure 6-1) usually separates the 
two. Tasks such as the Assembler are written to take advantage of any 
available free core (for building dynamic tables) , but a Task cannot 
have infoinnation on how much free core exists at the time it is 
loaded. 
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When a Task is made active, free core is determined by the size of the 
partition (P.SZ) minus the Task size (P.TS), The symbols in 
parentheses are the names of these parameters that appear in the 
Partition Block Description List (PBDL) node. Initially, the Task 
size is the amount of core occupied by both resident code and 
overlays. 

For a USER-mode Task, the size is always adjusted to a multiple of 
256, which is the unit of core allocation when memory protection and 
relocation are used. 

I/O buffers are created at the request of I/O Handlers, for example, 
when the Task issues a SEEK directive to open a file. Creation of I/O 
buffers necessarily diminishes the free core. The Assembler needs to 
use free core before it has opened all its files; it thus uses the 
mechanism described below to preallocate buffer space. 

The Assembler issues a PREALlocate I/O directive to each LUN which it 
may eventually use. If a LUN is connected to an I/O Handler that uses 
external buffers, the Handler calls a reentrant routine in the 
Executive to perform the Task. Preallocation of a buffer simply means 
that space for a buffer is reserved but not created. Buffer space is 
reserved by decreasing a parameter called the Virtual Partition Size 
(P.VS). Initially, the Virtual Partition Size is the same as the 
actual size of the partition (P.SZ), but it is reduced every time a 
call is made to preallocate a buffer. 

The Virtual Partition Size esteiblishes a ceiling on the Task size 
(which ceui be increased at run time) . Free core is the difference 
between P.VS and P.TS. Since buffer preallocation is not a 
requirement of all Tasks, P.VS also is reduced when a buffer is 
created out of free core space. 

Buffer preallocation by the Assembler sets aside enough space in the 
top of its partition to satisfy the future requirements of the I/O 
Heindlers which it may use. Once this is done, the Assembler issues a 
RAISEBound Directive to the Executive, This causes the Task sizes to 
be increased to encompass free core (consistent, of course, with the 
requirement that USER-mode Task sizes be a multiple of 256 words). The 
address of the top of free core (the new highest Task address) is 
returned to the Assembler so that it can tell how much it has 
availckble. 



b.3 BUFFER ALLOCATION AND DEALLOCATION 

Buffer allocation and deallocation are performed by reentrant routines 
in the Executive. Within the PBDL (see Figure 6-1 below) is a buffer 
pointer (P.BP) which is the head of a chain of buffers within the 
partition. Initially, P.BP contains a zero to indicate that no 
buffers have yet been created. 

Buffers are created starting at the top of a partition cind 
subsequently right below the lowest buffer in the chain. A buffer 
consists of two header words, followed by the actual buffer space 
usable by the I/O Handler. The first header word is a pointer to the 
next buffer in the chain (zero if there are no more) , and bit is an 
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availability indicator (of the current buffer, not the one pointed 
to). Bit contains zero if the buffer is not in use. 

When a buffer is deallocated, its "in use" bit is set to zero, but the 
buffer remains in the chain. In other words, "garbage collection" is 
not performed. If a buffer in the chain is free and is exactly the 
size required by the Hcuidler, a new buffer is not created and the old 
buffer is reused. 

Buffer sizes may differ among the various Handlers. As a result, the 
Duffer-allocation routine uses the following rules: 

1. If a free buffer of exactly the correct size exists, this 
buffer is used. 

2. If an appropriate buffer is not found, but sufficient space 
exists to create the buffer, this is preferable to using a 
free buffer that is too large. 

3. If an appropriate buffer is not found and sufficient space 
does not exist to create one, an available buffer should be 
selected which is large enough and most closely matches the 
required size. 



6.4 REENTRANT EXECUTIVE SUBROUTINES 

The following three reentrant system subroutines have entry points 
fixed in the System COMmunication (SCOM) area of the Executive: 

PABF = 350 /PREALLOCATE I/O BUFFER. 

ALBF =353 /ALLOCATE I/O BUFFER. 

DABF = 356 /DEALLOCATE I/O BUFFER. 

Calling Sequences: 

R2 — I/O request node address 

R4 — I/O buffer size 

JMS* (PABF) /Registers R4,R5,XR,and 

Return here on error /AC are altered. 

Return here if successful 

R2 ~ I/O request node address 

R4 — I/O buffer size /Registers Rl,R3,R4,R5, 

JMS* (ALBF) /R6,X10,X11,X12, 

Return here on error /XR, and AC are altered. 

Return here if successful 

with the buffer address 

in the AC 

R4 — I/O buffer address 

JMS* (DABF) /Registers R4,R5,XR, and 

Unconditional return /AC are altered. 

Note that the I/O buffer address in this case is two more than the 
address used internally within ALBF and DABF, since the caller need 
not know eibout the buffer header used for chaining and size. 
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TOP 




I/O BUFFER 1 



I/O BUFFER 2 



I/O BUFFER 3 



P.BA 



BOTTOM 



Figure 6-1 
I/O Buffers Within a Partition 
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Buffer preallocation, 6-1 
Buffers, 4-2, 6-1 

within a partition, 6-4 
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Internal interrupt routine, 5-1 

Interrupts, 1-2 
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I/O device handler task example, 
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I/O rundown, 4-2 



Carriage return, 2-1 

Command input line, 2-1 

Construction of advanced tasks, 
1-1 

Conventions , 

I/O handler construction, 4-1 
MCR task construction, 2-1 
TDV task construction, 3-1 

CTRL/C, 2-1 

CTRL/T, 3-2 



Deallocation of buffers, 6-2 
DETACH directive, 4-2 
Devices, 1-2, 4-3 
Dots, 3-1, 4-1 



Listing output, 2-1 

Logical unit number (LUN) , 4-1 

Logical Unit Table (LUT) , 4-1 



MCR function task example, 2-2 

MCR interaction, 2-1 

MCR request inhibit (MCRRI) flag, 

2-1 
MCR task construction, 2-1 



Name of MCR function task, 2-1 
Naming conventions, 1-2 
Nodes, 1-2 



Event variables, 4-2 
Exec mode, 3-1 



Fetch-A-Character (FAC) 

subroutine, 2-1 
Files, 1-2 
Free core, 6-2 
Front End Interrupt Driver task 

(VPVEC) , 5-1 



Partition Block Description List 

(PBDL) node, 6-2 
Partition size, 6-2 
Physical Device List (PDVL) , 4-2 
Pool of Empty Nodes, 1-2 
PREALlocate I/O directive, 6-2 
Preallocation of I/O buffers, 6-1 



QUEUE I/O directive, 4-1 



Garbage collection, 6-3 
Guidelines for advanced task 
construction, 1-2 



RAISEBound directive, 6-2 
REASSIGN, MCR Function task, 4-2 
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